[no subject]

[Ludovic Courtès]

branch: wip-actors
commit 9b227abd29b15e7e25c54a71c524e7b26252a270
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue Sep 12 11:49:15 2023 +0200

    http: Correctly render build products as JSON.
    
    Fixes a bug introduced in c445d2d642765f9589313e9ccdd826ef9bf71432 where
    <build-product> records would end up being passed to ‘scm->json’.
    
    * src/cuirass/http.scm (build->hydra-build): Convert <build-product>
    records to alists.
---
 src/cuirass/http.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 5439e24..bc3cf27 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -131,7 +131,12 @@
                               (build-current-status build))))
     (priority . ,(build-priority build))
     (finished . ,(bool->int finished?))
-    (buildproducts . ,(list->vector (build-products build)))))
+    (buildproducts . ,(list->vector
+                       (map (lambda (product)
+                              `((type . ,(build-product-type product))
+                                (path . ,(build-product-file product))
+                                (file-size . ,(build-product-file-size 
product))))
+                            (build-products build))))))
 
 (define (evaluation->json-object evaluation)
   "Turn EVALUATION into a representation suitable for 'json->scm'."