rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ci: Add build-products id field and export accessors. 

* guix/ci.scm (build-product?, build-product-id,
build-product-type, build-product-file-size,
build-product-path): Export them,
[id]: new field.
This commit is contained in:
Mathieu Othacehe 2020-06-15 15:31:21 +02:00
parent 9e989d9e36
commit 53e6195607
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/ci.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -22,12 +23,19 @@
#:use-module (json) #:use-module (json)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (build? #:export (build-product?
build-product-id
build-product-type
build-product-file-size
build-product-path
build?
build-id build-id
build-derivation build-derivation
build-system build-system
build-status build-status
build-timestamp build-timestamp
build-products
checkout? checkout?
checkout-commit checkout-commit
@ -55,9 +63,10 @@
(define-json-mapping <build-product> make-build-product (define-json-mapping <build-product> make-build-product
build-product? build-product?
json->build-product json->build-product
(type build-product-type) (id build-product-id) ;integer
(file-size build-product-file-size) (type build-product-type) ;string
(path build-product-path)) (file-size build-product-file-size) ;integer
(path build-product-path)) ;string
(define-json-mapping <build> make-build build? (define-json-mapping <build> make-build build?
json->build json->build