diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-15 15:31:03 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-06-15 15:33:42 +0200 |
| commit | 9e989d9e36c5ca62a207d56fd5643f77eb72cb5d (patch) | |
| tree | 70b0398b640637160fbdb3ac18405b8b737c54fe /guix/ci.scm | |
| parent | c9ea4eecf4e8ff7b09862f68454b3980e41b0e7c (diff) | |
| download | guix-9e989d9e36c5ca62a207d56fd5643f77eb72cb5d.tar guix-9e989d9e36c5ca62a207d56fd5643f77eb72cb5d.tar.gz | |
ci: Add status option to "latest-builds".
* guix/ci.scm (latest-builds): Add "status" option.
Diffstat (limited to 'guix/ci.scm')
| -rw-r--r-- | guix/ci.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/guix/ci.scm b/guix/ci.scm index 97a9847657..6bc80cacbf 100644 --- a/guix/ci.scm +++ b/guix/ci.scm @@ -109,10 +109,7 @@ (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 @@ string such as \"x86_64-linux\"), restrict to builds for SYSTEM." (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)))) |