diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-05 19:19:31 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-05 20:17:52 +0100 |
| commit | 093af3f90b986cb3f3dc387e307b6e08b09a1c9f (patch) | |
| tree | f7866120ca7130062ebac798cfbc6813210178ab /guix-build-coordinator/agent-messaging/http.scm | |
| parent | ab4b35fe4cd998a22a6c678628ed23c28b2e3a50 (diff) | |
| download | build-coordinator-093af3f90b986cb3f3dc387e307b6e08b09a1c9f.tar build-coordinator-093af3f90b986cb3f3dc387e307b6e08b09a1c9f.tar.gz | |
Include system uptime in the agent status information
As I've found this useful in spotting systems which have problems.
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 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)) '())))) |