futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* guix/ci.scm (latest-builds): Add "status" option.
This commit is contained in:
Mathieu Othacehe 2020-06-15 15:31:03 +02:00
parent c9ea4eecf4
commit 9e989d9e36
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/ci.scm
View File

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