me
/
guix
Archived
1
0
Fork 0
Code

ci: Reify the timestamps of evaluations. 

* guix/ci.scm (<evaluation>)[start-time, checkout-time,
completion-time]: New fields.
master
Ludovic Courtès 2023-06-01 15:47:02 +02:00
parent a7d9cd742c
commit acef4cecf9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
guix/ci.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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> ;;; Copyright © 2020 Mathieu Othacehe <othacehe@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -57,6 +57,9 @@
evaluation-spec evaluation-spec
evaluation-complete? evaluation-complete?
evaluation-checkouts evaluation-checkouts
evaluation-start-time
evaluation-checkout-time
evaluation-completion-time
job? job?
job-build-id job-build-id
@ -174,7 +177,13 @@ corresponding date object."
(checkouts evaluation-checkouts "checkouts" ;<checkout>* (checkouts evaluation-checkouts "checkouts" ;<checkout>*
(lambda (checkouts) (lambda (checkouts)
(map json->checkout (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 (define %query-limit
;; Max number of builds requested in queries. ;; Max number of builds requested in queries.