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

Change the derivation comparison targets

Browse source 
To be targets, rather than systems.
This commit is contained in:
Christopher Baines 2020-10-09 19:29:58 +01:00
parent 1f55718d75
commit 8daf35e2df
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -525,6 +525,9 @@
query-parameters query-parameters
(parallel-via-thread-pool-channel (parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems)) (with-thread-postgresql-connection valid-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
build-status-strings build-status-strings
'())))) '()))))
@ -564,6 +567,9 @@
query-parameters query-parameters
(parallel-via-thread-pool-channel (parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems)) (with-thread-postgresql-connection valid-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
build-status-strings build-status-strings
derivation-changes) derivation-changes)
#:extra-headers http-headers-for-unchanging-content)))))))))) #:extra-headers http-headers-for-unchanging-content))))))))))

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

@ -600,6 +600,7 @@
(define (compare/derivations query-parameters (define (compare/derivations query-parameters
valid-systems valid-systems
valid-targets
valid-build-statuses valid-build-statuses
derivation-changes) derivation-changes)
(layout (layout
@ -646,7 +647,7 @@
#:font-family "monospace") #:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"Target" query-parameters "Target" query-parameters
#:options valid-systems #:options valid-targets
#:help-text "Only include derivations that are build for this system." #:help-text "Only include derivations that are build for this system."
#:font-family "monospace") #:font-family "monospace")
(div (@ (class "form-group form-group-lg")) (div (@ (class "form-group form-group-lg"))