diff options
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 31f3865..62e9bc9 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -80,7 +80,9 @@ (mlambda (output) (datastore-list-builds-for-output datastore output))) - (let* ((agents (datastore-list-agents datastore)) + (let* ((agents (filter (lambda (agent) + (assoc-ref agent 'active)) + (datastore-list-agents datastore))) (agent-tags (map (lambda (agent-details) (let ((agent-id (assq-ref agent-details 'uuid))) (cons agent-id @@ -463,7 +465,9 @@ (make-gauge-metric metrics-registry name))))) - (let* ((agents (datastore-list-agents datastore)) + (let* ((agents (filter (lambda (agent) + (assoc-ref agent 'active)) + (datastore-list-agents datastore))) (agent-tags (map (lambda (agent-details) (let ((agent-id (assq-ref agent-details 'uuid))) (cons agent-id |