From 6cf84a43bb6160e11ede96820a8bc563aa7461ef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 27 Aug 2019 10:12:12 +0200 Subject: http: Pass 'build-search-results-table' a list, not a vector. * src/cuirass/http.scm (url-handler): Call 'vector->list' on the result of 'handle-builds-search-request', as expected by 'build-search-results-table'. --- src/cuirass/http.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 671a14d..2da3637 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -447,12 +447,13 @@ Hydra format." "Search results" (build-search-results-table query - (handle-builds-search-request - `((query . ,query) - (nr . ,%page-size) - (order . finish-time+build-id) - (border-low-id . ,border-low-id) - (border-high-id . ,border-high-id))) + (vector->list + (handle-builds-search-request + `((query . ,query) + (nr . ,%page-size) + (order . finish-time+build-id) + (border-low-id . ,border-low-id) + (border-high-id . ,border-high-id)))) builds-id-min builds-id-max) '() -- cgit v1.2.3