aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-11-20 11:49:10 +0000
committerChristopher Baines <mail@cbaines.net>2023-11-20 11:49:10 +0000
commit3711cd8f1d901b424b2073dc54be4eec83c95482 (patch)
tree09ee48d923c85e03d3b2162efce65ccc4945d16d
parentc3a2e6795dc32ffa51a25e1c71bdfe23f92db1cd (diff)
downloadbuild-coordinator-3711cd8f1d901b424b2073dc54be4eec83c95482.tar
build-coordinator-3711cd8f1d901b424b2073dc54be4eec83c95482.tar.gz
Use a temporary store connection for substituting derivations
-rw-r--r--guix-build-coordinator/agent.scm11
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm
index 599a70a..52e4b15 100644
--- a/guix-build-coordinator/agent.scm
+++ b/guix-build-coordinator/agent.scm
@@ -877,10 +877,13 @@ but the guix-daemon claims it's unavailable"
build-id ": substituting derivation")
(retry-on-error
(lambda ()
- (substitute-derivation store
- derivation-name
- #:substitute-urls
- derivation-substitute-urls)
+ (with-store/non-blocking fetch-substitute-store
+ ;; substitute-derivation uses set-build-options, so use
+ ;; a temporary store connection
+ (substitute-derivation store
+ derivation-name
+ #:substitute-urls
+ derivation-substitute-urls))
(add-temp-root store derivation-name))
#:times 20
#:delay (random 15))