http: Add build products support to the API.

* src/cuirass/http.scm (build->hydra-build)[build-products]: New variable,
added to "buildproducts" field.
* tests/http.scm (build-query-result): Adapt accordingly.

src/cuirass/http.scm

@@ -84,6 +84,9 @@
                (list (build-status scheduled)
                      (build-status started)))))
 
+  (define build-products
+    (db-get-build-products (assq-ref build #:id)))
+
   `((#:id . ,(assq-ref build #:id))
     (#:jobset . ,(assq-ref build #:specification))
     (#:job . ,(assq-ref build #:job-name))
@@ -105,7 +108,7 @@
                                 (assq-ref build #:status))))
     (#:priority . 0)
     (#:finished . ,(bool->int finished?))
-    (#:buildproducts . #nil)
+    (#:buildproducts . ,(list->vector build-products))
     (#:releasename . #nil)
     (#:buildinputs_builds . #nil)))
 

tests/http.scm

@@ -71,7 +71,7 @@
     (#:busy . 0)
     (#:priority . 0)
     (#:finished . 1)
-    (#:buildproducts . #nil)
+    (#:buildproducts . #())
     (#:releasename . #nil)
     (#:buildinputs_builds . #nil)))