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