01/02: Further reduce some chunk sizes

[Christopher Baines]

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

commit 8ef896b103ba9288f671d18ba96fd13aab2ecc5c
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Sep 15 16:25:31 2022 +0200

    Further reduce some chunk sizes
---
 guix-data-service/model/derivation.scm | 4 ++--
 guix-data-service/model/utils.scm      | 2 +-
 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