From 53e796239d6802cd8955a459dd523c55936a4444 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 May 2020 19:25:51 +0100 Subject: Change how triggering build allocations works Associate this with the coordinator, rather than having the logic in the agent communication code. --- guix-build-coordinator/agent-messaging/http.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'guix-build-coordinator/agent-messaging') 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 -- cgit v1.2.3