aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-11-20 11:24:23 +0000
committerChristopher Baines <mail@cbaines.net>2023-11-20 11:24:23 +0000
commitdbf0c4e452035bfb22218269ee0eec42d9c03750 (patch)
treecafbab9472df4dc73bc187c5db3e8677041b4ab8 /guix-build-coordinator
parent68ea8bb49888a616a0a62652e546f2c4fb68089e (diff)
downloadbuild-coordinator-dbf0c4e452035bfb22218269ee0eec42d9c03750.tar
build-coordinator-dbf0c4e452035bfb22218269ee0eec42d9c03750.tar.gz
Switch to (mostly) non blocking store connections in the agent
Pending #67245.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/agent.scm6
1 files 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