diff options
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 2 | ||||
| -rw-r--r-- | 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)) |