From 5a4024a3551d43cbc35a7d1887c9a792af6104f9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 22 Mar 2023 17:00:23 +0000 Subject: Fix status load average handling As the keys in JSON are strings. --- guix-build-coordinator/agent-messaging/http.scm | 2 +- guix-build-coordinator/agent-messaging/http/server.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 74f7c9c..992768f 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -267,7 +267,7 @@ #:body `((status . ,status) ,@(if 1min-load-average `((load_average - . ((1 . ,1min-load-average)))) + . (("1" . ,1min-load-average)))) '())))) args)) diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 75b1d77..016cecf 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -253,7 +253,7 @@ port. Also, the port used can be changed by passing the --port option.\n" (status (assoc-ref json-body "status")) (1min-load-average (and=> (assoc-ref json-body "load_average") (lambda (load-average) - (assoc-ref load-average 1))))) + (assoc-ref load-average "1"))))) (update-agent-status build-coordinator uuid status 1min-load-average)) -- cgit v1.2.3