diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -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 |