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.
This commit is contained in:
parent
c2aed4a5c1
commit
3db603c191
|
@ -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)))
|
||||
|
||||
|
|
|
@ -71,7 +71,7 @@
|
|||
(#:busy . 0)
|
||||
(#:priority . 0)
|
||||
(#:finished . 1)
|
||||
(#:buildproducts . #nil)
|
||||
(#:buildproducts . #())
|
||||
(#:releasename . #nil)
|
||||
(#:buildinputs_builds . #nil)))
|
||||
|
||||
|
|
Loading…
Reference in New Issue