diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-10 20:22:20 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-10 21:08:01 +0100 |
| commit | a138c55173a66713b808f0d5f5b21d7048e5d6c8 (patch) | |
| tree | f95a8dbe825123f8e46151b6095c612fc8e973a9 /guix-build-coordinator | |
| parent | 3620e1bea9ab158c34bdc790417ba7aa1946df63 (diff) | |
| download | build-coordinator-a138c55173a66713b808f0d5f5b21d7048e5d6c8.tar build-coordinator-a138c55173a66713b808f0d5f5b21d7048e5d6c8.tar.gz | |
Avoid with-store/non-blocking
As I'm seeing exceptions around here, but I think the syntax rule may be
hiding exactly where.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 3 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index b3d8e55..80d8c96 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -461,7 +461,8 @@ derivation)))) (define (read-drv/substitute derivation-file) - (with-store/non-blocking store + (with-store store + (ensure-non-blocking-store-connection store) (unless (valid-path? store derivation-file) (substitute-derivation store derivation-file diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 6840ddd..297d777 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -64,6 +64,7 @@ read-derivation-from-file* non-blocking-port + ensure-non-blocking-store-connection with-store/non-blocking substitute-derivation |