From dbf0c4e452035bfb22218269ee0eec42d9c03750 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 20 Nov 2023 11:24:23 +0000
Subject: Switch to (mostly) non blocking store connections in the agent

Pending #67245.
---
 guix-build-coordinator/agent.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index bd81002..c6f2122 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -330,7 +330,7 @@
                build-id
                ": setting up to build: "
                derivation-name)
-      (with-store store
+      (with-store/non-blocking store
         (let ((pre-build-status
                (call-with-duration-metric
                 metrics-registry
@@ -690,7 +690,7 @@
                     output-paths))
            (path-substitutes
             (begin
-              (with-store substitute-store
+              (with-store/non-blocking substitute-store
                 (apply set-build-options
                        substitute-store
                        `(,@(if non-derivation-substitute-urls
@@ -759,7 +759,7 @@ but the guix-daemon claims it's unavailable"
                          " missing paths")
                 (retry-on-error
                  (lambda ()
-                   (with-store fetch-substitute-store
+                   (with-store/non-blocking fetch-substitute-store
                      ;; Download the substitutes
                      (apply set-build-options
                             fetch-substitute-store
-- 
cgit v1.2.3