mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
ci: Add status option to "latest-builds".
* guix/ci.scm (latest-builds): Add "status" option.
This commit is contained in:
parent
c9ea4eecf4
commit
9e989d9e36
1 changed files with 4 additions and 5 deletions
|
@ -109,10 +109,7 @@ (define* (queued-builds url #:optional (limit %query-limit))
|
|||
(map json->build (vector->list queue))))
|
||||
|
||||
(define* (latest-builds url #:optional (limit %query-limit)
|
||||
#:key
|
||||
evaluation
|
||||
system
|
||||
job)
|
||||
#:key evaluation system job status)
|
||||
"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."
|
||||
|
@ -126,7 +123,9 @@ (define* (option name value #:optional (->string identity))
|
|||
(option "evaluation" evaluation
|
||||
number->string)
|
||||
(option "system" system)
|
||||
(option "job" job)))))
|
||||
(option "job" job)
|
||||
(option "status" status
|
||||
number->string)))))
|
||||
;; Note: Hydra does not provide a "derivation" field for entries in
|
||||
;; 'latestbuilds', but Cuirass does.
|
||||
(map json->build (vector->list latest))))
|
||||
|
|
Loading…
Reference in a new issue