diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:17:49 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:55:41 +0000 |
| commit | 51c318b99b7ff2203be7924fc5ff626a113f252c (patch) | |
| tree | e98d002e0d11d6d71bc8d6b932da0906c860f327 /guix-build-coordinator/agent-messaging/http.scm | |
| parent | f9bd2f047e295beb8252af8ae1eafaa43b70aa2a (diff) | |
| download | build-coordinator-51c318b99b7ff2203be7924fc5ff626a113f252c.tar build-coordinator-51c318b99b7ff2203be7924fc5ff626a113f252c.tar.gz | |
Have agents send their status every 30 seconds
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index b7b1877..74f7c9c 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -258,13 +258,17 @@ . args) (apply - (lambda* (status #:key (log default-log)) + (lambda* (status #:key 1min-load-average (log default-log)) (coordinator-http-request log interface (string-append "/agent/" (slot-ref interface 'agent-uuid)) #:method 'PUT ; TODO Should be PATCH - #:body `((status . ,status)))) + #:body `((status . ,status) + ,@(if 1min-load-average + `((load_average + . ((1 . ,1min-load-average)))) + '())))) args)) (define-method (submit-output |