diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-29 11:52:47 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-29 11:52:47 +0000 |
commit | afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4 (patch) | |
tree | c18e19ade5aec6a14b739334fafb5c73e01386eb /guix-qa-frontpage/guix-data-service.scm | |
parent | 21d81034da0861f70c94e33dae221eb3d210c5b1 (diff) | |
download | qa-frontpage-afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4.tar qa-frontpage-afa6b13f6e3369f611917f5ffe5e0534c6cf4dc4.tar.gz |
Fetch and display package reproducibility information for branches
This involved some refactoring of branch data in general.
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
-rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index cd26518..7a01e7f 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -47,7 +47,9 @@ revision-system-tests package-substitute-availability-url - package-substitute-availability)) + package-substitute-availability + + package-reproducibility-url)) (define-exception-type &guix-data-service-error &error make-guix-data-service-error @@ -298,3 +300,9 @@ (if json-body (assoc-ref json-body "substitute_servers") #f))) + +(define* (package-reproducibility-url commit) + (simple-format + #f + "https://data.qa.guix.gnu.org/revision/~A/package-reproducibility.json" + commit)) |