diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 05e9695..f1d0208 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -438,10 +438,11 @@ derivation)))) (define (read-drv/substitute derivation-file) - (unless (with-store store - (valid-path? store derivation-file)) - (substitute-derivation derivation-file - #:substitute-urls substitute-urls)) + (with-store/non-blocking store + (unless (valid-path? store derivation-file) + (substitute-derivation store + derivation-file + #:substitute-urls substitute-urls))) (read-derivation-from-file* derivation-file)) (let ((submit-build-result |