cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow specifying the systems and targets for compute and fix

Browse source
This commit is contained in:
Christopher Baines 2025-07-04 12:49:12 +01:00
parent 28d762b568
commit 7e910be46e
1 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1525,6 +1525,8 @@ WHERE builder != 'builtin:download'
(define* (compute-and-fix-broken-derivations-in-revision (define* (compute-and-fix-broken-derivations-in-revision
git-repository-id commit git-repository-id commit
#:key #:key
systems
targets
(ignore-systems '()) (ignore-systems '())
(ignore-targets '()) (ignore-targets '())
(extra-inferior-environment-variables '()) (extra-inferior-environment-variables '())
@ -1681,11 +1683,19 @@ WHERE builder != 'builtin:download'
(compute-derivations system target))) (compute-derivations system target)))
(list (list
(let ((all-system-target-pairs (let ((all-system-target-pairs
(if (or systems targets)
(append
(map (lambda (system)
(cons system #f))
(or systems '()))
(map (lambda (target)
(cons "x86_64-linux" target))
(or targets '())))
(call-with-inferior (call-with-inferior
inf-and-store-pool inf-and-store-pool
(lambda (inferior inferior-store) (lambda (inferior inferior-store)
(inferior-fetch-system-target-pairs inferior)) (inferior-fetch-system-target-pairs inferior))
#:memory-limit inferior-memory-limit))) #:memory-limit inferior-memory-limit))))
(filter (filter
(match-lambda (match-lambda
((system . target) ((system . target)