diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-04-17 11:46:49 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-04-17 11:46:49 +0100 |
| commit | 1f46168cc9005aa5ec3114a0d2745031c8bc3a47 (patch) | |
| tree | 460db6b00736d86ef7ced94e396c5e62e896ac14 /guix-build-coordinator/agent-messaging | |
| parent | 64783d00e885412b1b6a8c5e640863b4836a103b (diff) | |
| download | build-coordinator-1f46168cc9005aa5ec3114a0d2745031c8bc3a47.tar build-coordinator-1f46168cc9005aa5ec3114a0d2745031c8bc3a47.tar.gz | |
Switch the build-allocator thread to not use a channel
The put-message operation blocks, which doesn't work for triggering the
allocation process.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index f1aac7d..b2bc9a5 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -72,15 +72,13 @@ if there was no request body." (define (http-agent-messaging-start-server port host secret-key-base datastore hooks) - (define build-allocator-channel - (make-build-allocator-channel datastore)) + (define trigger-build-allocation + (make-build-allocator-thread datastore)) (define hook-channel (make-hook-channel datastore hooks)) - (define (trigger-build-allocation) - (put-message build-allocator-channel #t)) - + (trigger-build-allocation) (call-with-error-handling (lambda () (run-server |