01/03: Reduce some chunk sizes

[Christopher Baines]

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

commit f41bfcf8b6895ea2847b4c2873766b7cd09a56de
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Wed Sep 14 15:42:00 2022 +0100

    Reduce some chunk sizes
    
    As these queries are still slow enough to be logged.
---
 guix-data-service/model/derivation.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/model/derivation.scm 
b/guix-data-service/model/derivation.scm
index b3b9cd3..c910775 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
-                   500
+                   250
                    (list-copy derivation-ids)
                    (list-copy derivations)))
 
@@ -1808,7 +1808,7 @@ WHERE derivation_inputs.derivation_id IN ("
                   #f "querying for batch of ~A related derivation ids"
                   (length ids-chunk))
                (exec-query conn query)))))
-        (chunk! ids 1000))
+        (chunk! ids 500))
        <))
 
     (define (derivation-ids->missing-sources ids)