diff options
-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) |