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 /guix-build-coordinator/agent-messaging | |
| 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 'guix-build-coordinator/agent-messaging')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index b5cd478..d22cf5c 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -78,8 +78,7 @@ if there was no request body." (define (http-agent-messaging-start-server port host secret-key-base build-coordinator - chunked-request-channel - trigger-build-allocation) + chunked-request-channel) (define update-base-datastore-metrics! (base-datastore-metrics-updater build-coordinator)) @@ -99,7 +98,6 @@ if there was no request body." body secret-key-base build-coordinator - trigger-build-allocation chunked-request-channel update-base-datastore-metrics!))) #:host host @@ -215,7 +213,6 @@ port. Also, the port used can be changed by passing the --port option.\n" body secret-key-base build-coordinator - trigger-build-allocation chunked-request-channel update-base-datastore-metrics!) (define (authenticated? uuid request) @@ -278,7 +275,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (json-string->scm (utf8->string body))) ;; Trigger build allocation, as the result of this build ;; could change the allocation - (trigger-build-allocation) + (trigger-build-allocation build-coordinator) (render-json "message received")) (render-json @@ -295,7 +292,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (json-string->scm (utf8->string body))) ;; Trigger build allocation, so that the allocator can handle ;; this setup failure - (trigger-build-allocation) + (trigger-build-allocation build-coordinator) (render-json "message received")) (render-json |