aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/hooks.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-08-20 13:09:56 +0100
committerChristopher Baines <mail@cbaines.net>2023-08-20 13:09:56 +0100
commitc4008265d4f19adad8827f454556ab0e66075e7d (patch)
treeea6d09ca3952f3f47501d3be6549bb7340c46b8c /guix-build-coordinator/hooks.scm
parent1727f4f1be2ad2cd8a6fc3dd19804b8072ca3f8b (diff)
downloadbuild-coordinator-c4008265d4f19adad8827f454556ab0e66075e7d.tar
build-coordinator-c4008265d4f19adad8827f454556ab0e66075e7d.tar.gz
Pass the store in to substitute-derivation
To avoid an additional store connection.
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
-rw-r--r--guix-build-coordinator/hooks.scm5
1 files changed, 2 insertions, 3 deletions
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))