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

Update the JSON link on the compare/derivations page

Browse source
This commit is contained in:
Christopher Baines 2019-03-17 23:14:25 +00:00
parent f4c159d9de
commit f7587bd818
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

24
guix-data-service/web/view/html.scm
View file

@ -736,10 +736,26 @@
target-derivations target-derivations
systems systems
targets targets
build-statues) build-statuses)
(define query-params (define query-params
(string-append "?base_commit=" base-commit (string-append
"&target_commit=" target-commit)) "?"
(string-join
`(,(string-append "base_commit=" base-commit)
,(string-append "target_commit=" target-commit)
,@(map (lambda (system)
(string-append
"system=" system))
systems)
,@(map (lambda (target)
(string-append
"target=" target))
targets)
,@(map (lambda (build_status)
(string-append
"build_status=" build_status))
build-statuses))
"&")))
(layout (layout
#:extra-headers #:extra-headers
@ -847,7 +863,7 @@
(multiple #t) (multiple #t)
(name "build_status")) (name "build_status"))
,@(map (lambda (build-status) ,@(map (lambda (build-status)
`(option (@ ,@(if (member build-status build-statues) `(option (@ ,@(if (member build-status build-statuses)
'((selected "")) '((selected ""))
'()) '())
(value ,build-status)) (value ,build-status))