From 33958eac792bffd1a0ce0e33fcdd2568954323e3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 14 Mar 2020 12:34:23 +0000 Subject: [PATCH] Increase the batch size for fetching builds/narinfo files To increase the likelyhood that all the builds and narinfo files for the latest revisions are fetched. --- guix-data-service/builds.scm | 4 ++-- guix-data-service/model/nar.scm | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 09c61e0..cce36c9 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -522,7 +522,7 @@ WHERE derivation_output_details_set_id NOT IN ( " ) ORDER BY derivation_output_details_set_id, derivations.id -LIMIT 15000")) +LIMIT 30000")) (exec-query conn query (list (number->string build-server-id)))) @@ -606,7 +606,7 @@ WHERE NOT EXISTS ( " ) ORDER BY derivation_output_details_sets.id DESC, derivation_output_details.id -LIMIT 15000")) +LIMIT 30000")) (fold (lambda (row result) (match row diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index ff6a5d5..b9bde80 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -347,7 +347,7 @@ WHERE derivation_output_details.path NOT IN ( )")) " ORDER BY derivation_output_details.id DESC -LIMIT 10000")) +LIMIT 100000")) (map car (exec-query conn query (list (number->string build-server-id)))))