From 7731c6f3403212265f73ba578c37dd9c62f3d238 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 12 Nov 2022 10:57:53 +0000 Subject: Tweak backfilling the blocked builds --- guix-data-service/model/blocked-builds.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'guix-data-service/model/blocked-builds.scm') diff --git a/guix-data-service/model/blocked-builds.scm b/guix-data-service/model/blocked-builds.scm index 94da6d1..059f740 100644 --- a/guix-data-service/model/blocked-builds.scm +++ b/guix-data-service/model/blocked-builds.scm @@ -291,18 +291,18 @@ FROM latest_build_status (map car (exec-query conn query '())))) (chunk-for-each! (lambda (ids) - (with-postgresql-transaction - conn - (lambda (conn) - (exec-query - conn - "LOCK TABLE blocked_builds IN SHARE MODE") + (with-time-logging "processing chunk" + (with-postgresql-transaction + conn + (lambda (conn) + (exec-query + conn + "LOCK TABLE blocked_builds IN SHARE MODE") - (handle-populating-blocked-builds-for-build-failures - conn - (map string->number ids)) - (simple-format #t "processed chunk...\n")))) - 1000 + (handle-populating-blocked-builds-for-build-failures + conn + (map string->number ids)))))) + 500 build-ids))) (define* (select-blocking-builds conn revision-commit -- cgit v1.2.3