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/server.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/server.scm')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index d2f4e2d..0ca97a6 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -260,12 +260,14 @@ port. Also, the port used can be changed by passing the --port option.\n" (1min-load-average (and=> (assoc-ref json-body "load_average") (lambda (load-average) (assoc-ref load-average "1")))) + (system-uptime (assoc-ref json-body "system_uptime")) (processor-count (assoc-ref json-body "processor_count")) (initial-status-update (eq? #t (assoc-ref json-body "initial_status_update")))) (update-agent-status build-coordinator uuid status 1min-load-average + system-uptime processor-count #:initial-status-update? initial-status-update)) |