mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ci: Add "evaluation" method.

Browse source 
* guix/ci.scm (evaluation): New procedure.
This commit is contained in:
Mathieu Othacehe 2020-12-07 15:38:16 +01:00
parent 9087af0323
commit 1d229a34b7
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/ci.scm
View file

@ -50,6 +50,7 @@ (define-module (guix ci)
%query-limit %query-limit
queued-builds queued-builds
latest-builds latest-builds
evaluation
latest-evaluations latest-evaluations
evaluations-for-commit)) evaluations-for-commit))
@ -140,6 +141,13 @@ (define* (option name value #:optional (->string identity))
;; 'latestbuilds', but Cuirass does. ;; 'latestbuilds', but Cuirass does.
(map json->build (vector->list latest)))) (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)) (define* (latest-evaluations url #:optional (limit %query-limit))
"Return the latest evaluations performed by the CI server at URL." "Return the latest evaluations performed by the CI server at URL."
(map json->evaluation (map json->evaluation