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 a76fe90..d3e4fcd 100644
--- a/guix-build-coordinator/agent-messaging/http.scm
+++ b/guix-build-coordinator/agent-messaging/http.scm
@@ -247,7 +247,8 @@
.
args)
(apply
- (lambda* (status #:key 1min-load-average (log default-log)
+ (lambda* (status #:key 1min-load-average system-uptime
+ (log default-log)
initial-status-update?)
(coordinator-http-request
log
@@ -260,6 +261,9 @@
`((load_average
. (("1" . ,1min-load-average))))
'())
+ ,@(if system-uptime
+ `((system_uptime . ,system-uptime))
+ '())
,@(if initial-status-update?
`((initial_status_update . #t))
'()))))