diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-25 21:50:36 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-25 21:50:36 +0000 |
| commit | 1590a088f9c8a05676cbb55a7a8df94fa88bac1f (patch) | |
| tree | 6d91d49201dd7d530b6b605dac9edf3a13294bf1 | |
| parent | 5db12853c4eab4157e5534ffe703bf1be87ec138 (diff) | |
| download | build-coordinator-1590a088f9c8a05676cbb55a7a8df94fa88bac1f.tar build-coordinator-1590a088f9c8a05676cbb55a7a8df94fa88bac1f.tar.gz | |
Send event on allocation plan update
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 09ffb53..749c931 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -850,7 +850,15 @@ (allocator-proc datastore #:metrics-registry (build-coordinator-metrics-registry build-coordinator))))) - (datastore-replace-build-allocation-plan datastore new-plan)) + (datastore-replace-build-allocation-plan datastore new-plan) + + (let ((build-count-per-agent + (datastore-count-build-allocation-plan-entries + datastore))) + (build-coordinator-send-event + build-coordinator + "allocation-plan-update" + `((allocation_plan_counts . ,build-count-per-agent))))) #t) (define (make-build-allocator-thread build-coordinator) |