diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-06-03 20:06:26 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-06-03 20:06:26 +0100 |
| commit | 67cda8f9cc6a8829ec6b5857d5836b794b653f2f (patch) | |
| tree | f2d0e89284001f3f002394e0c25c19f65e6af585 /guix-data-service/web/repository | |
| parent | 11b13edac90733d53c605125416a265f30474c0a (diff) | |
| download | data-service-67cda8f9cc6a8829ec6b5857d5836b794b653f2f.tar data-service-67cda8f9cc6a8829ec6b5857d5836b794b653f2f.tar.gz | |
Make the package-reproducibility page work for the latest revision
Diffstat (limited to 'guix-data-service/web/repository')
| -rw-r--r-- | guix-data-service/web/repository/controller.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 0f8a5e7..530d52d 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -201,6 +201,17 @@ (render-unknown-revision mime-types conn commit-hash)))) + (('GET "repository" repository-id "branch" branch-name "latest-processed-revision" "package-reproducibility") + (let ((commit-hash + (latest-processed-commit-for-branch conn repository-id branch-name))) + (if commit-hash + (render-revision-package-reproduciblity 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 |