From 093af3f90b986cb3f3dc387e307b6e08b09a1c9f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 5 May 2023 19:19:31 +0100 Subject: Include system uptime in the agent status information As I've found this useful in spotting systems which have problems. --- guix-build-coordinator/agent-messaging/http/server.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'guix-build-coordinator/agent-messaging/http/server.scm') 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)) -- cgit v1.2.3