guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2023-12-14 06:03:04 +01:00
Code Issues Releases Wiki Activity

http: Add build products support to the API.

Browse source 
* 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:
Mathieu Othacehe 2020-06-14 18:45:38 +02:00
parent c2aed4a5c1
commit 3db603c191
No known key found for this signature in database
GPG key ID: 8354763531769CA6
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/cuirass/http.scm
View file

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

2
tests/http.scm
View file

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