aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
-rw-r--r--guix-build-coordinator/agent-messaging/http.scm9
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