From c4008265d4f19adad8827f454556ab0e66075e7d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 20 Aug 2023 13:09:56 +0100
Subject: Pass the store in to substitute-derivation

To avoid an additional store connection.
---
 guix-build-coordinator/hooks.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'guix-build-coordinator/hooks.scm')

diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index a0ae0c1..a98f318 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -134,10 +134,9 @@
             '()
             (with-store store
               (unless (valid-path? store drv-name)
-                (set-store-connection-timeout store #:timeout 20)
-
                 ;; TODO This isn't ideal as it can be blocked by GC
-                (substitute-derivation drv-name
+                (substitute-derivation store
+                                       drv-name
                                        #:substitute-urls
                                        derivation-substitute-urls)
                 (add-temp-root store drv-name))
-- 
cgit v1.2.3