From 316d9e08172e6f665c6a30ed9044f0404d8ad60d Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 26 May 2021 14:54:43 +0200 Subject: guix: ci: Add spec support to latest-evaluations. * guix/ci.scm (latest-evaluations): Add spec parameter support. --- guix/ci.scm | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/guix/ci.scm b/guix/ci.scm index 44cf0c5074..0af04ff97d 100644 --- a/guix/ci.scm +++ b/guix/ci.scm @@ -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 -- cgit v1.2.3