aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-09-15 16:25:31 +0200
committerChristopher Baines <mail@cbaines.net>2022-09-15 16:25:31 +0200
commit8ef896b103ba9288f671d18ba96fd13aab2ecc5c (patch)
treeaa6a83162a80ee195b2e62a7bd1429377fe97b59 /guix-data-service
parent37e8af60fb33a84a92328f3a812baceafca4e40d (diff)
downloaddata-service-8ef896b103ba9288f671d18ba96fd13aab2ecc5c.tar
data-service-8ef896b103ba9288f671d18ba96fd13aab2ecc5c.tar.gz
Further reduce some chunk sizes
Diffstat (limited to 'guix-data-service')
-rw-r--r--guix-data-service/model/derivation.scm4
-rw-r--r--guix-data-service/model/utils.scm2
2 files changed, 3 insertions, 3 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm
index c910775..d61c6e5 100644
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@@ -1423,7 +1423,7 @@ INNER JOIN derivation_outputs
AND vals.output_name = derivation_outputs.name")))))
(chunk-for-each! process-chunk
- 250
+ 200
(list-copy derivation-ids)
(list-copy derivations)))
@@ -1773,7 +1773,7 @@ WHERE " criteria ";"))
file-name
(string->number id))))
(exec-query conn (select-existing-derivations chunk))))
- (chunk! missing-file-names 2000)))))
+ (chunk! missing-file-names 1000)))))
(define (derivation-file-names->derivation-ids conn derivation-file-names)
(define (insert-source-files-missing-nars derivation-ids)
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm
index 093b618..093161a 100644
--- a/guix-data-service/model/utils.scm
+++ b/guix-data-service/model/utils.scm
@@ -366,7 +366,7 @@ WHERE table_name = $1"
(delete-duplicates
(concatenate data))
data)
- 5000)))))
+ 3000)))))
(missing-entries
(filter (lambda (field-values)
(not (vhash-assoc