From 3d494b89738d5bd65b7b6dbc3cfbb507a34372db Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 27 Aug 2019 10:06:18 +0200 Subject: 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'. --- src/cuirass/http.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index d87bcb3..671a14d 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -415,15 +415,16 @@ Hydra format." (div (@ (class "tab-pane show active")) ,(build-eval-table id - (handle-builds-request - `((evaluation . ,id) - (status . ,(and=> status string->symbol)) - (nr . ,%page-size) - (order . finish-time+build-id) - (border-high-time . ,border-high-time) - (border-low-time . ,border-low-time) - (border-high-id . ,border-high-id) - (border-low-id . ,border-low-id))) + (vector->list + (handle-builds-request + `((evaluation . ,id) + (status . ,(and=> status string->symbol)) + (nr . ,%page-size) + (order . finish-time+build-id) + (border-high-time . ,border-high-time) + (border-low-time . ,border-low-time) + (border-high-id . ,border-high-id) + (border-low-id . ,border-low-id)))) builds-id-min builds-id-max status)))) -- cgit v1.2.3