diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-21 16:19:24 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-21 16:19:24 +0100 |
commit | c0540457692e87fc8752a82bdaca9ce8167914db (patch) | |
tree | b6a81fb26c427d980ee03232c1ee9ddfff689c71 /guix-build-coordinator/agent-messaging/http.scm | |
parent | e135098282c78f03a2c9a037a19319dde0185814 (diff) | |
download | build-coordinator-c0540457692e87fc8752a82bdaca9ce8167914db.tar build-coordinator-c0540457692e87fc8752a82bdaca9ce8167914db.tar.gz |
Deallocate canceled builds from agents when they startup
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 8e01cb9..6e8490c 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -255,7 +255,8 @@ . args) (apply - (lambda* (status #:key 1min-load-average (log default-log)) + (lambda* (status #:key 1min-load-average (log default-log) + initial-status-update?) (coordinator-http-request log interface @@ -266,6 +267,9 @@ ,@(if 1min-load-average `((load_average . (("1" . ,1min-load-average)))) + '()) + ,@(if initial-status-update? + `((initial_status_update . #t)) '())))) args)) |