diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-08-27 10:12:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-08-27 10:12:12 +0200 |
| commit | 6cf84a43bb6160e11ede96820a8bc563aa7461ef (patch) | |
| tree | 488632b47872423c73f082ad336e66ef53a63a9c | |
| parent | 3d494b89738d5bd65b7b6dbc3cfbb507a34372db (diff) | |
| download | cuirass-6cf84a43bb6160e11ede96820a8bc563aa7461ef.tar cuirass-6cf84a43bb6160e11ede96820a8bc563aa7461ef.tar.gz | |
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'.
| -rw-r--r-- | src/cuirass/http.scm | 13 |
1 files 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) '() |