From acef4cecf908e3c4a6fd99e2cc48f8b9ad4c1eff Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 1 Jun 2023 15:47:02 +0200 Subject: [PATCH] ci: Reify the timestamps of evaluations. * guix/ci.scm ()[start-time, checkout-time, completion-time]: New fields. --- guix/ci.scm | 13 +++++++++++-- 1 file 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 +;;; Copyright © 2018-2023 Ludovic Courtès ;;; Copyright © 2020 Mathieu Othacehe ;;; ;;; 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" ;* (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.