aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging/http.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-03-24 09:45:10 +0000
committerChristopher Baines <mail@cbaines.net>2023-03-24 09:51:28 +0000
commitd6ae42f19691267d915cd66174436f33debabec0 (patch)
treebdcac7bd56cb06a2a62631e72564c7a51716cbf3 /guix-build-coordinator/agent-messaging/http.scm
parent024761d432ff84e197b49846c71ac34f5703df38 (diff)
downloadbuild-coordinator-d6ae42f19691267d915cd66174436f33debabec0.tar
build-coordinator-d6ae42f19691267d915cd66174436f33debabec0.tar.gz
Add processor count to the agent status
This is useful when interpreting the load information.
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-rw-r--r--guix-build-coordinator/agent-messaging/http.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm
index 992768f..adc8102 100644
--- a/guix-build-coordinator/agent-messaging/http.scm
+++ b/guix-build-coordinator/agent-messaging/http.scm
@@ -264,7 +264,8 @@
interface
(string-append "/agent/" (slot-ref interface 'agent-uuid))
#:method 'PUT ; TODO Should be PATCH
- #:body `((status . ,status)
+ #:body `((status . ,status)
+ (processor_count . ,(current-processor-count))
,@(if 1min-load-average
`((load_average
. (("1" . ,1min-load-average))))