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