diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-15 15:31:21 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-15 15:34:19 +0200 |
| commit | 53e619560712d4901e55a1e33a4b1bca84f2d306 (patch) | |
| tree | 57a1addc73971e9ad9c917df24a6e4e34a9d5b46 | |
| parent | 9e989d9e36c5ca62a207d56fd5643f77eb72cb5d (diff) | |
| download | guix-53e619560712d4901e55a1e33a4b1bca84f2d306.tar.gz | |
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.
| -rw-r--r-- | guix/ci.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/guix/ci.scm b/guix/ci.scm index 6bc80cacbf..02eb90e6c3 100644 --- a/guix/ci.scm +++ b/guix/ci.scm @@ -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 |