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

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

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