[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: Make the package-reproducibility page work for the latest revisio
|
From: |
Christopher Baines |
|
Subject: |
02/03: Make the package-reproducibility page work for the latest revision |
|
Date: |
Wed, 3 Jun 2020 15:14:57 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository data-service.
commit 67cda8f9cc6a8829ec6b5857d5836b794b653f2f
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Wed Jun 3 20:06:26 2020 +0100
Make the package-reproducibility page work 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 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
diff --git a/guix-data-service/web/revision/controller.scm
b/guix-data-service/web/revision/controller.scm
index d723c16..62ddca1 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -53,6 +53,7 @@
render-revision-lint-warnings
render-revision-package-version
render-revision-packages
+ render-revision-package-reproduciblity
render-revision-package-derivations
render-unknown-revision
render-view-revision))