summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-06-01 15:47:02 +0200
committerLudovic Courtès <ludo@gnu.org>2023-06-02 15:47:27 +0200
commitacef4cecf908e3c4a6fd99e2cc48f8b9ad4c1eff (patch)
treec3578532850d485d4a3b8ed328994990c584b4b8 /guix
parenta7d9cd742c3149bb014db95f88d1158d590bc124 (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.scm13
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.