diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-12 10:57:53 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-12 10:57:53 +0000 |
| commit | 7731c6f3403212265f73ba578c37dd9c62f3d238 (patch) | |
| tree | 6186d429853eeed7883745f0aeaf5d7eddc97f94 | |
| parent | 8e9ab68d1440ccf32351091875b6bb3a731a4986 (diff) | |
| download | data-service-7731c6f3403212265f73ba578c37dd9c62f3d238.tar data-service-7731c6f3403212265f73ba578c37dd9c62f3d238.tar.gz | |
Tweak backfilling the blocked builds
| -rw-r--r-- | guix-data-service/model/blocked-builds.scm | 22 |
1 files 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 |