2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00

http: Pass 'build-eval-table' a list, not a vector.

* src/cuirass/http.scm (url-handler): Call 'vector->list' on the result
of 'handle-builds-request', as expected by 'build-eval-table'.
This commit is contained in:
Ludovic Courtès 2019-08-27 10:06:18 +02:00
parent 1cd2f9334d
commit 3d494b8973

View file

@ -415,6 +415,7 @@ Hydra format."
(div (@ (class "tab-pane show active"))
,(build-eval-table
id
(vector->list
(handle-builds-request
`((evaluation . ,id)
(status . ,(and=> status string->symbol))
@ -423,7 +424,7 @@ Hydra format."
(border-high-time . ,border-high-time)
(border-low-time . ,border-low-time)
(border-high-id . ,border-high-id)
(border-low-id . ,border-low-id)))
(border-low-id . ,border-low-id))))
builds-id-min
builds-id-max
status))))