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

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit ef6f9f16fe1ddcf5659848d160b4a8ac3397a044
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Jun 15 09:11:17 2020 +0200

    ci: Add job option to "latest-builds".
    
    * guix/ci.scm (latest-builds): Add "job" option.
---
 guix/ci.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/ci.scm b/guix/ci.scm
index e1016ef..36f85e1 100644
--- a/guix/ci.scm
+++ b/guix/ci.scm
@@ -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))))