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