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

Start merging the package derivation comparison code

Browse source
This commit is contained in:
Christopher Baines 2020-11-21 20:29:14 +00:00
parent 56983eb03e
commit 0c3e208a83
2 changed files with 4 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/web/compare/controller.scm
View file

@ -571,6 +571,7 @@
(render-html (render-html
#:sxml (compare/package-derivations #:sxml (compare/package-derivations
query-parameters query-parameters
'revision
systems systems
(valid-targets->options targets) (valid-targets->options targets)
build-status-strings build-status-strings
@ -626,6 +627,7 @@
(render-html (render-html
#:sxml (compare/package-derivations #:sxml (compare/package-derivations
query-parameters query-parameters
'revision
systems systems
(valid-targets->options targets) (valid-targets->options targets)
build-status-strings build-status-strings

22
guix-data-service/web/compare/html.scm
View file

@ -653,6 +653,7 @@
environment-variables)))))))))) environment-variables))))))))))
(define (compare/package-derivations query-parameters (define (compare/package-derivations query-parameters
mode
valid-systems valid-systems
valid-targets valid-targets
valid-build-statuses valid-build-statuses
@ -688,26 +689,7 @@
(@ (method "get") (@ (method "get")
(action "") (action "")
(class "form-horizontal")) (class "form-horizontal"))
,(form-horizontal-control ,@(compare-form-controls-for-mode mode query-parameters)
"Base commit" query-parameters
#:required? #t
#:help-text "The commit to use as the basis for the comparison."
#:font-family "monospace")
,(form-horizontal-control
"Target commit" query-parameters
#:required? #t
#:help-text "The commit to compare against the base commit."
#:font-family "monospace")
,(form-horizontal-control
"System" query-parameters
#:options valid-systems
#:help-text "Only include derivations for this system."
#:font-family "monospace")
,(form-horizontal-control
"Target" query-parameters
#:options valid-targets
#:help-text "Only include derivations that are build for this system."
#:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"Build change" query-parameters "Build change" query-parameters
#:options '(("(none specified)" . "") #:options '(("(none specified)" . "")