04/11: Change the derivation comparison targets

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 8daf35e2df8bb4da0daa3e141d2cdbc23b06b1e2
Author: Christopher Baines <mail@cbaines.net>
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"))