summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
Diffstat (limited to 'guix')
-rw-r--r--guix/ci.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/ci.scm b/guix/ci.scm
index 44b7673a91..f429bf198f 100644
--- a/guix/ci.scm
+++ b/guix/ci.scm
@@ -50,6 +50,7 @@
%query-limit
queued-builds
latest-builds
+ evaluation
latest-evaluations
evaluations-for-commit))
@@ -140,6 +141,13 @@ string such as \"x86_64-linux\"), restrict to builds for SYSTEM."
;; 'latestbuilds', but Cuirass does.
(map json->build (vector->list latest))))
+(define (evaluation url evaluation)
+ "Return the given EVALUATION performed by the CI server at URL."
+ (let ((evaluation (json-fetch
+ (string-append url "/api/evaluation?id="
+ (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