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

Pass ignore arguments to find-broken-derivations-in-revision

Browse source
This commit is contained in:
Christopher Baines 2025-06-27 09:43:00 +02:00
parent 7c0779519b
commit 4bb6fb172e
1 changed files with 28 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1385,7 +1385,9 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
#:parallelism 1 #:parallelism 1
#:drain? #t)) #:drain? #t))
(define (find-broken-derivations-in-revision commit) (define* (find-broken-derivations-in-revision
commit
#:key (ignore-systems '()) (ignore-targets '()))
(run-fibers (run-fibers
(lambda () (lambda ()
(with-exception-handler (with-exception-handler
@ -1397,6 +1399,9 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
(fibers-batch-map (fibers-batch-map
(match-lambda (match-lambda
((system target) ((system target)
(if (or (member system ignore-systems)
(member target ignore-targets))
'()
(with-postgresql-connection (with-postgresql-connection
"fix" "fix"
(lambda (conn) (lambda (conn)
@ -1419,7 +1424,7 @@ WHERE builder != 'builtin:download'
AND builder != 'builtin:git-download' AND builder != 'builtin:git-download'
AND NOT EXISTS ( AND NOT EXISTS (
SELECT 1 FROM derivation_inputs WHERE derivation_id = derivations.id SELECT 1 FROM derivation_inputs WHERE derivation_id = derivations.id
)"))))))) )"))))))))
6 6
(with-postgresql-connection (with-postgresql-connection
"fix" "fix"
@ -1519,7 +1524,12 @@ WHERE builder != 'builtin:download'
(parallelism 4) (parallelism 4)
inferior-memory-limit) inferior-memory-limit)
(let ((broken-derivations (let ((broken-derivations
(find-broken-derivations-in-revision commit))) (find-broken-derivations-in-revision
commit
#:ignore-systems ignore-systems
#:ignore-targets ignore-targets)))
(simple-format #t "~A broken derivations\n"
(length broken-derivations))
(run-fibers (run-fibers
(lambda () (lambda ()
(with-exception-handler (with-exception-handler