cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a page with charts to show package reproducibility

Browse source
This commit is contained in:
Christopher Baines 2019-12-16 19:57:36 +00:00
parent 34b3585b48
commit 96f897cf3b
3 changed files with 328 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
guix-data-service/web/revision/controller.scm
View file

@ -43,6 +43,7 @@
#:use-module (guix-data-service model lint-checker)
#:use-module (guix-data-service model lint-warning)
#:use-module (guix-data-service model guix-revision)
#:use-module (guix-data-service model nar)
#:use-module (guix-data-service web revision html)
#:export (revision-controller
@ -216,6 +217,15 @@
(render-unknown-revision mime-types
conn
commit-hash)))
(('GET "revision" commit-hash "package-reproducibility")
(if (guix-commit-exists? conn commit-hash)
(render-revision-package-reproduciblity mime-types
conn
commit-hash
#:path-base path)
(render-unknown-revision mime-types
conn
commit-hash)))
(('GET "revision" commit-hash "builds")
(if (guix-commit-exists? conn commit-hash)
(let ((parsed-query-parameters
@ -330,6 +340,25 @@
#:header-text header-text)
#:extra-headers http-headers-for-unchanging-content)))))
(define* (render-revision-package-reproduciblity mime-types
conn
commit-hash
#:key path-base)
(let ((reproducibility-status
(select-reproducibility-status-for-revision conn commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
'()))
(else
(render-html
#:sxml (view-revision-package-reproducibility
commit-hash
reproducibility-status
#:header-text '("Package reproducibility status")))))))
(define (render-revision-news mime-types
conn
commit-hash