mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ci: Add build products support.

Browse source 
* guix/ci.scm (<build-product>): New json mapping,
(<build)[products]: new field.
This commit is contained in:
Mathieu Othacehe 2020-06-14 21:53:57 +02:00
parent b64ca5dadc
commit 4e05bbb093
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
guix/ci.scm
View file

@ -52,13 +52,27 @@ (define-module (guix ci)
;;; ;;;
;;; Code: ;;; Code:
(define-json-mapping <build-product> make-build-product
build-product?
json->build-product
(type build-product-type)
(file-size build-product-file-size)
(path build-product-path))
(define-json-mapping <build> make-build build? (define-json-mapping <build> make-build build?
json->build json->build
(id build-id "id") ;integer (id build-id "id") ;integer
(derivation build-derivation) ;string | #f (derivation build-derivation) ;string | #f
(system build-system) ;string (system build-system) ;string
(status build-status "buildstatus" ) ;integer (status build-status "buildstatus" ) ;integer
(timestamp build-timestamp)) ;integer (timestamp build-timestamp) ;integer
(products build-products "buildproducts" ;<build-product>*
(lambda (products)
(map json->build-product
;; Before Cuirass 3db603c1, #f is always returned.
(if products
(vector->list products)
'())))))
(define-json-mapping <checkout> make-checkout checkout? (define-json-mapping <checkout> make-checkout checkout?
json->checkout json->checkout