summaryrefslogtreecommitdiff
path: root/guix/ci.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/ci.scm')
-rw-r--r--guix/ci.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/guix/ci.scm b/guix/ci.scm
index 7a03befc7c..f429bf198f 100644
--- a/guix/ci.scm
+++ b/guix/ci.scm
@@ -31,6 +31,7 @@
build?
build-id
build-derivation
+ build-evaluation
build-system
build-status
build-timestamp
@@ -49,6 +50,7 @@
%query-limit
queued-builds
latest-builds
+ evaluation
latest-evaluations
evaluations-for-commit))
@@ -71,6 +73,7 @@
json->build
(id build-id "id") ;integer
(derivation build-derivation) ;string | #f
+ (evaluation build-evaluation) ;integer
(system build-system) ;string
(status build-status "buildstatus" ) ;integer
(timestamp build-timestamp) ;integer
@@ -138,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