guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Tue, 27 Aug 2019 04:12:38 -0400 (EDT)

branch: master
commit 6cf84a43bb6160e11ede96820a8bc563aa7461ef
Author: Ludovic Courtès <address@hidden>
Date:   Tue Aug 27 10:12:12 2019 +0200

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]