Fix match in render-builds

This commit is contained in:
Christopher Baines 2020-06-28 21:44:51 +01:00
parent 911d0779ed
commit 879021f21f

View file

@ -77,7 +77,7 @@
#:sxml (view-builds parsed-query-parameters #:sxml (view-builds parsed-query-parameters
build-status-strings build-status-strings
(map (match-lambda (map (match-lambda
((id url lookup-all-derivations) ((id url lookup-all-derivations lookup-builds)
(cons url id))) (cons url id)))
(select-build-servers conn)) (select-build-servers conn))
(select-build-stats (select-build-stats