aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/build-allocator.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r--guix-build-coordinator/build-allocator.scm8
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