diff options
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index c7267e9..41f1ff3 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -426,9 +426,7 @@ processed?: ~A ;; restore original C handler. (sigaction SIGINT #f)))))) - (let* ((trigger-build-allocation - (make-build-allocator-thread build-coordinator)) - (agent-communication-thunk + (let* ((agent-communication-thunk (let ((agent-communication-uri (string->uri (assq-ref opts 'agent-communication)))) (match (uri-scheme agent-communication-uri) @@ -448,8 +446,7 @@ processed?: ~A host (assq-ref opts 'secret-key-base) build-coordinator - chunked-request-channel - trigger-build-allocation)))))))) + chunked-request-channel))))))) (start-hook-processing-thread build-coordinator) (trigger-build-allocation build-coordinator) |