From c4008265d4f19adad8827f454556ab0e66075e7d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 20 Aug 2023 13:09:56 +0100 Subject: Pass the store in to substitute-derivation To avoid an additional store connection. --- guix-build-coordinator/client-communication.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'guix-build-coordinator/client-communication.scm') 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 -- cgit v1.2.3