diff options
author | Christopher Baines <mail@cbaines.net> | 2023-08-20 13:09:56 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-08-20 13:09:56 +0100 |
commit | c4008265d4f19adad8827f454556ab0e66075e7d (patch) | |
tree | ea6d09ca3952f3f47501d3be6549bb7340c46b8c /guix-build-coordinator/client-communication.scm | |
parent | 1727f4f1be2ad2cd8a6fc3dd19804b8072ca3f8b (diff) | |
download | build-coordinator-c4008265d4f19adad8827f454556ab0e66075e7d.tar build-coordinator-c4008265d4f19adad8827f454556ab0e66075e7d.tar.gz |
Pass the store in to substitute-derivation
To avoid an additional store connection.
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 |