guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 20 additions and 4 deletions
Show stats 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
systems
targets
build-statues)
build-statuses)
(define query-params
(string-append "?base_commit=" base-commit
"&target_commit=" target-commit))
(string-append
"?"
(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
#:extra-headers
@ -847,7 +863,7 @@
(multiple #t)
(name "build_status"))
,@(map (lambda (build-status)
`(option (@ ,@(if (member build-status build-statues)
`(option (@ ,@(if (member build-status build-statuses)
'((selected ""))
'())
(value ,build-status))