diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-25 21:49:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-25 21:49:13 +0000 |
| commit | 5db12853c4eab4157e5534ffe703bf1be87ec138 (patch) | |
| tree | 31f5e368e2a11c0486a06990c320c4a76a3b9946 /guix-build-coordinator | |
| parent | 864659b8558fdf9244104021b2d13db99807daa7 (diff) | |
| download | build-coordinator-5db12853c4eab4157e5534ffe703bf1be87ec138.tar build-coordinator-5db12853c4eab4157e5534ffe703bf1be87ec138.tar.gz | |
Send event on agent status update
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 962bc2b..09ffb53 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -817,7 +817,16 @@ agent-uuid status 1min-load-average - processor-count)) + processor-count) + + (build-coordinator-send-event + coordinator + "agent-status-update" + `((agent_id . ,agent-uuid) + (status . ,status) + (load_average + . ((1 . ,1min-load-average))) + (processor_count . ,processor-count)))) (define (trigger-build-allocation build-coordinator) ((build-coordinator-allocator-thread build-coordinator))) |