cbaines pushed a commit to branch master
in repository data-service.
commit 8daf35e2df8bb4da0daa3e141d2cdbc23b06b1e2
Author: Christopher Baines <[email protected]>
AuthorDate: Fri Oct 9 19:29:58 2020 +0100
Change the derivation comparison targets
To be targets, rather than systems.
---
guix-data-service/web/compare/controller.scm | 6 ++++++
guix-data-service/web/compare/html.scm | 3 ++-
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/guix-data-service/web/compare/controller.scm
b/guix-data-service/web/compare/controller.scm
index 636de67..17b5550 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -525,6 +525,9 @@
query-parameters
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
+ (valid-targets->options
+ (parallel-via-thread-pool-channel
+ (with-thread-postgresql-connection valid-targets)))
build-status-strings
'()))))
@@ -564,6 +567,9 @@
query-parameters
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
+ (valid-targets->options
+ (parallel-via-thread-pool-channel
+ (with-thread-postgresql-connection
valid-targets)))
build-status-strings
derivation-changes)
#:extra-headers
http-headers-for-unchanging-content))))))))))
diff --git a/guix-data-service/web/compare/html.scm
b/guix-data-service/web/compare/html.scm
index 8fbcae7..8b35290 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -600,6 +600,7 @@
(define (compare/derivations query-parameters
valid-systems
+ valid-targets
valid-build-statuses
derivation-changes)
(layout
@@ -646,7 +647,7 @@
#:font-family "monospace")
,(form-horizontal-control
"Target" query-parameters
- #:options valid-systems
+ #:options valid-targets
#:help-text "Only include derivations that are build for this
system."
#:font-family "monospace")
(div (@ (class "form-group form-group-lg"))
