07/10: Fix rendering of the /builds page

[Christopher Baines]

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

commit 553f00d4cf5da7f18180a20fa2803883fd53347d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Wed Oct 21 19:58:52 2020 +0100

    Fix rendering of the /builds page
---
 guix-data-service/web/build/controller.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/guix-data-service/web/build/controller.scm 
b/guix-data-service/web/build/controller.scm
index ba9b22f..731ba11 100644
--- a/guix-data-service/web/build/controller.scm
+++ b/guix-data-service/web/build/controller.scm
@@ -75,9 +75,14 @@
                              '()
                              '()
                              '()))
-        (letpar& ((build-servers
+        (letpar& ((build-server-options
                    (with-thread-postgresql-connection
-                    select-build-servers))
+                    (lambda (conn)
+                      (map (match-lambda
+                             ((id url lookup-all-derivations
+                                  lookup-builds)
+                              (cons url id)))
+                           (select-build-servers conn)))))
                   (build-stats
                    (with-thread-postgresql-connection
                     (lambda (conn)
@@ -99,6 +104,6 @@
           (render-html
            #:sxml (view-builds parsed-query-parameters
                                build-status-strings
-                               build-servers
+                               build-server-options
                                build-stats
                                builds-with-context))))))