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

Fix rendering of the /builds page

Browse source
This commit is contained in:
Christopher Baines 2020-10-21 19:58:52 +01:00
parent 266a2d867c
commit 553f00d4cf
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
guix-data-service/web/build/controller.scm
View file

@ -75,9 +75,14 @@
'() '()
'() '()
'())) '()))
(letpar& ((build-servers (letpar& ((build-server-options
(with-thread-postgresql-connection (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 (build-stats
(with-thread-postgresql-connection (with-thread-postgresql-connection
(lambda (conn) (lambda (conn)
@ -99,6 +104,6 @@
(render-html (render-html
#:sxml (view-builds parsed-query-parameters #:sxml (view-builds parsed-query-parameters
build-status-strings build-status-strings
build-servers build-server-options
build-stats build-stats
builds-with-context)))))) builds-with-context))))))