branch: master
commit 2a63a0151928f7cedee71a8c7a7b0cac41374abd
Author: Ludovic Courtès <[email protected]>
AuthorDate: Sun Sep 3 16:54:51 2023 +0200
http: Update to use symbols, not keywords, as keys on search results.
Fixes a regression introduced in
77bf78ecf7a3e2b500af9095d023ad0086599d02.
* src/cuirass/http.scm (url-handler): In “/search/latest” and
“/search/latest/PRODUCT-TYPE”, use symbols instead of keywords as the
second argument to ‘assoc-ref’.
---
src/cuirass/http.scm | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 2350be2..eea328e 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -1091,7 +1091,7 @@ passed, only display JOBS targeting this SYSTEM."
(let ((uri (string->uri-reference
(string-append "/build/"
(number->string
- (assoc-ref build #:id))
+ (assoc-ref build 'id))
"/details"))))
(respond (build-response #:code 302
#:headers `((location . ,uri)))
@@ -1110,14 +1110,14 @@ passed, only display JOBS targeting this SYSTEM."
(nr . 1)
(order . finish-time+build-id))))
((build)
- (let* ((build-id (assoc-ref build #:id))
+ (let* ((build-id (assoc-ref build 'id))
(products (vector->list
- (assoc-ref build #:buildproducts)))
+ (assoc-ref build 'buildproducts)))
(product (find (lambda (product)
- (string=? (assoc-ref product #:type)
+ (string=? (assoc-ref product 'type)
product-type))
products))
- (product-id (assoc-ref product #:id))
+ (product-id (assoc-ref product 'id))
(uri (and product-id
(string->uri-reference
(string-append "/download/"
