diff options
| author | Marius Bakke <marius@gnu.org> | 2021-06-06 21:16:32 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2021-06-06 21:16:32 +0200 |
| commit | 8d59c262ada2e2167196a8fb8cbebd9c329a79dd (patch) | |
| tree | 85a74de8cc23a2f0179c0b9f0adfa4c274449a0c /guix/ci.scm | |
| parent | e7f0835b07d868fd447aa64c873174fa385e1699 (diff) | |
| parent | a068ed6a5f5b3535fce49ac4eca1fec82edd6fdc (diff) | |
| download | guix-patches-8d59c262ada2e2167196a8fb8cbebd9c329a79dd.tar guix-patches-8d59c262ada2e2167196a8fb8cbebd9c329a79dd.tar.gz | |
Merge branch 'master' into core-updates
Conflicts:
gnu/local.mk
gnu/packages/algebra.scm
gnu/packages/bioinformatics.scm
gnu/packages/curl.scm
gnu/packages/docbook.scm
gnu/packages/emacs-xyz.scm
gnu/packages/maths.scm
gnu/packages/plotutils.scm
gnu/packages/python-web.scm
gnu/packages/python-xyz.scm
gnu/packages/radio.scm
gnu/packages/readline.scm
gnu/packages/tls.scm
gnu/packages/xml.scm
gnu/packages/xorg.scm
Diffstat (limited to 'guix/ci.scm')
| -rw-r--r-- | guix/ci.scm | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/guix/ci.scm b/guix/ci.scm index c70e5bb9e6..0af04ff97d 100644 --- a/guix/ci.scm +++ b/guix/ci.scm @@ -100,7 +100,7 @@ json->evaluation (id evaluation-id) ;integer (spec evaluation-spec "specification") ;string - (complete? evaluation-complete? "in-progress" + (complete? evaluation-complete? "status" (match-lambda (0 #t) (_ #f))) ;Boolean @@ -154,14 +154,21 @@ string such as \"x86_64-linux\"), restrict to builds for SYSTEM." (number->string evaluation))))) (json->evaluation evaluation))) -(define* (latest-evaluations url #:optional (limit %query-limit)) - "Return the latest evaluations performed by the CI server at URL." - (map json->evaluation - (vector->list - (json->scm - (http-fetch (string-append url "/api/evaluations?nr=" - (number->string limit))))))) - +(define* (latest-evaluations url + #:optional (limit %query-limit) + #:key spec) + "Return the latest evaluations performed by the CI server at URL. If SPEC +is passed, only consider the evaluations for the given SPEC specification." + (let ((spec (if spec + (format #f "&spec=~a" spec) + ""))) + (map json->evaluation + (vector->list + (json->scm + (http-fetch + (string-append url "/api/evaluations?nr=" + (number->string limit) + spec))))))) (define* (evaluations-for-commit url commit #:optional (limit %query-limit)) "Return the evaluations among the latest LIMIT evaluations that have COMMIT |