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

View File

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