summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-06-15 15:31:03 +0200
committerMathieu Othacehe <othacehe@gnu.org>2020-06-15 15:33:42 +0200
commit9e989d9e36c5ca62a207d56fd5643f77eb72cb5d (patch)
tree70b0398b640637160fbdb3ac18405b8b737c54fe
parentc9ea4eecf4e8ff7b09862f68454b3980e41b0e7c (diff)
downloadguix-9e989d9e36c5ca62a207d56fd5643f77eb72cb5d.tar.gz
ci: Add status option to "latest-builds".
* guix/ci.scm (latest-builds): Add "status" option.
-rw-r--r--guix/ci.scm9
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))))