mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ci: Restrict substitute search to guix jobset.

Browse source 
* guix/ci.scm (latest-builds): Add jobset keyword.
(find-latest-commit-with-substitutes): Pass jobset "guix".

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Andrew Whatson 2021-12-19 16:24:01 +01:00 committed by Mathieu Othacehe
parent 4424fff4dc
commit 11334d15d5
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/ci.scm
View file

@ -208,7 +208,7 @@ (define* (queued-builds url #:optional (limit %query-limit))
(map json->build (vector->list queue)))) (map json->build (vector->list queue))))
(define* (latest-builds url #:optional (limit %query-limit) (define* (latest-builds url #:optional (limit %query-limit)
#:key evaluation system job status) #:key evaluation system job jobset status)
"Return the latest builds performed by the CI server at URL. If EVALUATION "Return the latest builds performed by the CI server at URL. If EVALUATION
is an integer, restrict to builds of EVALUATION. If SYSTEM is true (a system is an integer, restrict to builds of EVALUATION. If SYSTEM is true (a system
string such as \"x86_64-linux\"), restrict to builds for SYSTEM." string such as \"x86_64-linux\"), restrict to builds for SYSTEM."
@ -218,6 +218,7 @@ (define* (latest-builds url #:optional (limit %query-limit)
`("evaluation" ,evaluation) `("evaluation" ,evaluation)
`("system" ,system) `("system" ,system)
`("job" ,job) `("job" ,job)
`("jobset" ,jobset)
`("status" ,status)))) `("status" ,status))))
;; Note: Hydra does not provide a "derivation" field for entries in ;; Note: Hydra does not provide a "derivation" field for entries in
;; 'latestbuilds', but Cuirass does. ;; 'latestbuilds', but Cuirass does.
@ -286,6 +287,7 @@ (define (find-latest-commit-with-substitutes url)
(let* ((job-name (string-append "guix." (%current-system))) (let* ((job-name (string-append "guix." (%current-system)))
(build (match (latest-builds url 1 (build (match (latest-builds url 1
#:job job-name #:job job-name
#:jobset "guix"
#:status 0) ;success #:status 0) ;success
((build) build) ((build) build)
(_ #f))) (_ #f)))