From 4d308729c83869566ea07b7aae03f2cdef405cf1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 19 May 2020 18:54:43 +0100 Subject: Fetch substitutes in a separate channel As I'm guessing this could block the thread for fibers. --- scripts/guix-build-coordinator.in | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 0043a7e..77ab46e 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -463,12 +463,17 @@ processed?: ~A chunked-request-channel))))))) (client-communication-thunk (let ((client-communication-uri - (string->uri (assq-ref opts 'client-communication)))) + (string->uri (assq-ref opts 'client-communication))) + (substitutes-channel + (make-worker-thread-channel (const '()) + #:parallelism 2))) (lambda () - (start-client-request-server (assq-ref opts 'secret-key-base) - (uri-host client-communication-uri) - (uri-port client-communication-uri) - build-coordinator))))) + (start-client-request-server + (assq-ref opts 'secret-key-base) + (uri-host client-communication-uri) + (uri-port client-communication-uri) + build-coordinator + substitutes-channel))))) (start-hook-processing-thread build-coordinator) (trigger-build-allocation build-coordinator) -- cgit v1.2.3