diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-21 19:58:52 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-21 20:05:37 +0100 |
| commit | 553f00d4cf5da7f18180a20fa2803883fd53347d (patch) | |
| tree | 96359dc29fbe905a8968307e45af2c94962b74ca | |
| parent | 266a2d867c2f020b5cf8fe9fb9b06d9ee5d0e141 (diff) | |
| download | data-service-553f00d4cf5da7f18180a20fa2803883fd53347d.tar data-service-553f00d4cf5da7f18180a20fa2803883fd53347d.tar.gz | |
Fix rendering of the /builds page
| -rw-r--r-- | guix-data-service/web/build/controller.scm | 11 |
1 files 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)))))) |