ci: Add job option to "latest-builds".

* guix/ci.scm (latest-builds): Add "job" option.
This commit is contained in:
Mathieu Othacehe 2020-06-15 09:11:17 +02:00
parent 4e05bbb093
commit ef6f9f16fe
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 6 additions and 2 deletions

View File

@ -109,7 +109,10 @@
(map json->build (vector->list queue))))
(define* (latest-builds url #:optional (limit %query-limit)
#:key evaluation system)
#:key
evaluation
system
job)
"Return the latest builds performed by the CI server at URL. If EVALUATION
is an integer, restrict to builds of EVALUATION. If SYSTEM is true (a system
string such as \"x86_64-linux\"), restrict to builds for SYSTEM."
@ -122,7 +125,8 @@ string such as \"x86_64-linux\"), restrict to builds for SYSTEM."
(number->string limit)
(option "evaluation" evaluation
number->string)
(option "system" system)))))
(option "system" system)
(option "job" job)))))
;; Note: Hydra does not provide a "derivation" field for entries in
;; 'latestbuilds', but Cuirass does.
(map json->build (vector->list latest))))