diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http/server.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index 016cecf..2928513 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -253,10 +253,12 @@ 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")))) + (processor-count (assoc-ref json-body "processor_count"))) (update-agent-status build-coordinator uuid - status 1min-load-average)) + status 1min-load-average + processor-count)) (render-json (agent-details datastore uuid))) |