03/03: Support package substitute availability for the latest revision

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit e7e5a281ee4b857ce342a94f684fc246cedce8c7
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Wed Jun 3 20:14:16 2020 +0100

    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))