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:
parent
1cd2f9334d
commit
3d494b8973
1 changed files with 10 additions and 9 deletions
|
@ -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))))
|
||||
|
|
Loading…
Reference in a new issue