diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-06-03 20:14:16 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-06-03 20:14:16 +0100 |
| commit | e7e5a281ee4b857ce342a94f684fc246cedce8c7 (patch) | |
| tree | a540cbc1b00b60f0d0c5edc64e11910373ebb75d | |
| parent | 67cda8f9cc6a8829ec6b5857d5836b794b653f2f (diff) | |
| download | data-service-e7e5a281ee4b857ce342a94f684fc246cedce8c7.tar data-service-e7e5a281ee4b857ce342a94f684fc246cedce8c7.tar.gz | |
Support package substitute availability for the latest revision
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 11 | ||||
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 1 |
2 files changed, 12 insertions, 0 deletions
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)) |