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

Populate package derivation outputs select options always

Browse source 
Even when the query parameters are invalid, as this is more useful. Thanks to
nckx for reporting.
This commit is contained in:
Christopher Baines 2020-06-03 20:02:39 +01:00
parent 916b594473
commit 11b13edac9
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -850,6 +850,9 @@
`("Revision " (samp ,commit-hash)))
(header-link
(string-append "/revision/" commit-hash)))
(define build-server-urls
(select-build-server-urls-by-id conn))
(if (any-invalid-query-parameters? query-parameters)
(case (most-appropriate-mime-type
'(application/json text/html)
@ -863,9 +866,10 @@
commit-hash
query-parameters
'()
'()
'()
'()
build-server-urls
(valid-systems conn)
(valid-targets->options
(valid-targets conn))
#f
#:path-base path-base
#:header-text header-text
@ -889,8 +893,6 @@
#:target (assq-ref query-parameters 'target)
#:limit-results limit-results
#:after-path (assq-ref query-parameters 'after_path)))
(build-server-urls
(select-build-server-urls-by-id conn))
(show-next-page?
(if all-results
#f