[no subject]

[Ludovic Courtès]

branch: master
commit 2a63a0151928f7cedee71a8c7a7b0cac41374abd
Author: Ludovic Courtès <ludo@gnu.org>
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/"