From 1d229a34b7cb0d28721ca99f337de444381ec1a0 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Mon, 7 Dec 2020 15:38:16 +0100 Subject: ci: Add "evaluation" method. * guix/ci.scm (evaluation): New procedure. --- guix/ci.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'guix/ci.scm') 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 -- cgit v1.2.3