[no subject]

[Ludovic Courtès]

branch: master
commit 3d494b89738d5bd65b7b6dbc3cfbb507a34372db
Author: Ludovic Courtès <address@hidden>
Date:   Tue Aug 27 10:06:18 2019 +0200

    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))))