From e7e5a281ee4b857ce342a94f684fc246cedce8c7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 3 Jun 2020 20:14:16 +0100 Subject: [PATCH] Support package substitute availability for the latest revision --- guix-data-service/web/repository/controller.scm | 11 +++++++++++ guix-data-service/web/revision/controller.scm | 1 + 2 files changed, 12 insertions(+) diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 530d52d..6fbe4ce 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -212,6 +212,17 @@ (render-unknown-revision mime-types conn commit-hash)))) + (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package-substitute-availability") + (let ((commit-hash + (latest-processed-commit-for-branch conn repository-id branch-name))) + (if commit-hash + (render-revision-package-substitute-availability mime-types + conn + commit-hash + #:path-base path) + (render-unknown-revision mime-types + conn + commit-hash)))) (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "lint-warnings") (let ((commit-hash diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 62ddca1..9093d70 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -54,6 +54,7 @@ render-revision-package-version render-revision-packages render-revision-package-reproduciblity + render-revision-package-substitute-availability render-revision-package-derivations render-unknown-revision render-view-revision))