diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-06-01 15:47:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-06-02 15:47:27 +0200 |
| commit | acef4cecf908e3c4a6fd99e2cc48f8b9ad4c1eff (patch) | |
| tree | c3578532850d485d4a3b8ed328994990c584b4b8 /guix | |
| parent | a7d9cd742c3149bb014db95f88d1158d590bc124 (diff) | |
ci: Reify the timestamps of evaluations.
* guix/ci.scm (<evaluation>)[start-time, checkout-time,
completion-time]: New fields.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/ci.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/guix/ci.scm b/guix/ci.scm index ecdffde2d1..5d16ee69d0 100644 --- a/guix/ci.scm +++ b/guix/ci.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2018-2022 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018-2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org> ;;; ;;; This file is part of GNU Guix. @@ -57,6 +57,9 @@ evaluation-spec evaluation-complete? evaluation-checkouts + evaluation-start-time + evaluation-checkout-time + evaluation-completion-time job? job-build-id @@ -174,7 +177,13 @@ corresponding date object." (checkouts evaluation-checkouts "checkouts" ;<checkout>* (lambda (checkouts) (map json->checkout - (vector->list checkouts))))) + (vector->list checkouts)))) + (start-time evaluation-start-time "timestamp" ;date + seconds->date) + (checkout-time evaluation-checkout-time "checkouttime" ;date + seconds->date) + (completion-time evaluation-completion-time "evaltime" ;date + seconds->date)) (define %query-limit ;; Max number of builds requested in queries. |