diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:24:23 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:24:23 +0000 |
| commit | dbf0c4e452035bfb22218269ee0eec42d9c03750 (patch) | |
| tree | cafbab9472df4dc73bc187c5db3e8677041b4ab8 | |
| parent | 68ea8bb49888a616a0a62652e546f2c4fb68089e (diff) | |
| download | build-coordinator-dbf0c4e452035bfb22218269ee0eec42d9c03750.tar build-coordinator-dbf0c4e452035bfb22218269ee0eec42d9c03750.tar.gz | |
Switch to (mostly) non blocking store connections in the agent
Pending #67245.
| -rw-r--r-- | guix-build-coordinator/agent.scm | 6 |
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 |