From ae6d7621d191390c7ab08f61e8bc85ab665867d5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 29 Jun 2025 16:50:30 +0200
Subject: [PATCH] Try even more things to address fetching narinfo slowness

---
 guix-data-service/model/nar.scm   | 2 +-
 guix-data-service/substitutes.scm | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm
index e5bc1ad..9f607be 100644
--- a/guix-data-service/model/nar.scm
+++ b/guix-data-service/model/nar.scm
@@ -386,7 +386,7 @@ ORDER BY COUNT(*) DESC")
           #:key
           build-success-after
           after-id
-          (limit 500))
+          (limit 200))
   (define query
     (string-append
      "
diff --git a/guix-data-service/substitutes.scm b/guix-data-service/substitutes.scm
index a12d615..5cf13d1 100644
--- a/guix-data-service/substitutes.scm
+++ b/guix-data-service/substitutes.scm
@@ -81,6 +81,10 @@
   (let loop ((last-id #f)
              (requests 0)
              (success-responses 0))
+    ;; I think something here is causing lots of garbage or garbage collection
+    ;; to be slow, so try and take breaks
+    (unless specific-outputs
+      (sleep 10))
     (let ((outputs-chunk
            (or specific-outputs
                (select-outputs-without-known-nar-entries