[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: Insert guix revision lint warnings in chunks
|
From: |
Christopher Baines |
|
Subject: |
03/03: Insert guix revision lint warnings in chunks |
|
Date: |
Sat, 17 Sep 2022 05:19:07 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository data-service.
commit 640386a84d37c6f5abc05f568a8d9826bdbfa8bf
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sat Sep 17 00:41:48 2022 +0200
Insert guix revision lint warnings in chunks
To avoid long running queries.
---
guix-data-service/jobs/load-new-guix-revision.scm | 10 +++++++---
1 file 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