07/07: Tweak backfilling the blocked builds

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 7731c6f3403212265f73ba578c37dd9c62f3d238
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Nov 12 10:57:53 2022 +0000

    Tweak backfilling the blocked builds
---
 guix-data-service/model/blocked-builds.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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