diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-09-17 00:41:48 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-09-17 08:53:23 +0200 |
| commit | 640386a84d37c6f5abc05f568a8d9826bdbfa8bf (patch) | |
| tree | 3dd8c3f848c4383850df05cb3f7693ede10f2bf6 /guix-data-service | |
| parent | 78a5abee21d9e507fbacf443c411cfe095889b03 (diff) | |
| download | data-service-640386a84d37c6f5abc05f568a8d9826bdbfa8bf.tar data-service-640386a84d37c6f5abc05f568a8d9826bdbfa8bf.tar.gz | |
Insert guix revision lint warnings in chunks
To avoid long running queries.
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index cee08e0..22e8270 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1528,9 +1528,13 @@ WHERE job_id = $1") guix-revision-id lint-checker-ids) - (insert-guix-revision-lint-warnings conn - guix-revision-id - lint-warning-ids))) + (chunk-for-each! + (lambda (lint-warning-ids-chunk) + (insert-guix-revision-lint-warnings conn + guix-revision-id + lint-warning-ids-chunk)) + 5000 + lint-warning-ids))) (when inferior-system-tests (insert-system-tests-for-guix-revision conn |