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

Add a new package substitute availability page

Browse source
This commit is contained in:
Christopher Baines 2020-05-03 21:25:45 +01:00
parent 6d3e8660bd
commit c5a5684f1d
3 changed files with 375 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -244,6 +244,15 @@
(render-unknown-revision mime-types
conn
commit-hash)))
(('GET "revision" commit-hash "package-substitute-availability")
(if (guix-commit-exists? conn commit-hash)
(render-revision-package-substitute-availability 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
@ -438,6 +447,31 @@
#:header-text header-text
#:header-link header-link))))))
(define* (render-revision-package-substitute-availability mime-types
conn
commit-hash
#:key path-base)
(let ((substitute-availability
(select-package-output-availability-for-revision conn commit-hash))
(build-server-urls
(group-to-alist
(match-lambda
((id url lookup-all-derivations)
(cons id url)))
(select-build-servers conn))))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
((application/json)
(render-json
'())) ; TODO
(else
(render-html
#:sxml (view-revision-package-substitute-availability
commit-hash
substitute-availability
build-server-urls))))))
(define* (render-revision-package-reproduciblity mime-types
conn
commit-hash