diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-17 19:25:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-17 19:25:51 +0100 |
| commit | 53e796239d6802cd8955a459dd523c55936a4444 (patch) | |
| tree | 978540a91ae768da060362d72c7ca2e0be8c33cc /scripts/guix-build-coordinator.in | |
| parent | 8053c67af3ad3d5a2467a6d12a06562df00c9969 (diff) | |
| download | build-coordinator-53e796239d6802cd8955a459dd523c55936a4444.tar build-coordinator-53e796239d6802cd8955a459dd523c55936a4444.tar.gz | |
Change how triggering build allocations works
Associate this with the coordinator, rather than having the logic in the agent
communication code.
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) |