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

Add a page for channel instance derivations

Browse source
This commit is contained in:
Christopher Baines 2020-02-12 08:37:57 +00:00
parent 7306df0a0f
commit 5cf186e5b1
2 changed files with 88 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,6 +34,7 @@
#:use-module (guix-data-service model build-server)
#:use-module (guix-data-service model build-status)
#:use-module (guix-data-service model channel-news)
#:use-module (guix-data-service model channel-instance)
#:use-module (guix-data-service model package)
#:use-module (guix-data-service model git-branch)
#:use-module (guix-data-service model git-repository)
@ -225,6 +226,15 @@
(render-unknown-revision mime-types
conn
commit-hash)))
(('GET "revision" commit-hash "channel-instances")
(if (guix-commit-exists? conn commit-hash)
(render-revision-channel-instances mime-types
conn
commit-hash
#:path-base path)
(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
@ -378,6 +388,33 @@
#:header-text header-text
#:header-link header-link))))))
(define* (render-revision-channel-instances mime-types
conn
commit-hash
#:key
(path-base "/revision/")
(header-text
`("Revision " (samp ,commit-hash)))
(header-link
(string-append "/revision/"
commit-hash)))
(let ((channel-instances
(select-channel-instances-for-guix-revision conn commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
'())) ; TODO
(else
(render-html
#:sxml (view-revision-channel-instances
commit-hash
channel-instances
#:path-base path-base
#:header-text header-text
#:header-link header-link))))))
(define* (render-revision-package-reproduciblity mime-types
conn
commit-hash