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

Tweak backfilling the blocked builds

Browse source
This commit is contained in:
Christopher Baines 2022-11-12 10:57:53 +00:00
parent 8e9ab68d14
commit 7731c6f340
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
guix-data-service/model/blocked-builds.scm
View file

@ -291,18 +291,18 @@ FROM latest_build_status
(map car (exec-query conn query '())))) (map car (exec-query conn query '()))))
(chunk-for-each! (chunk-for-each!
(lambda (ids) (lambda (ids)
(with-postgresql-transaction (with-time-logging "processing chunk"
conn (with-postgresql-transaction
(lambda (conn) conn
(exec-query (lambda (conn)
conn (exec-query
"LOCK TABLE blocked_builds IN SHARE MODE") conn
"LOCK TABLE blocked_builds IN SHARE MODE")
(handle-populating-blocked-builds-for-build-failures (handle-populating-blocked-builds-for-build-failures
conn conn
(map string->number ids)) (map string->number ids))))))
(simple-format #t "processed chunk...\n")))) 500
1000
build-ids))) build-ids)))
(define* (select-blocking-builds conn revision-commit (define* (select-blocking-builds conn revision-commit