From 74a5e012e467d281d8fdb6ac0e1713ae7b8859b9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 12 Nov 2021 14:09:18 +0000 Subject: Show the active status of agents when listing them --- scripts/guix-build-coordinator.in | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'scripts/guix-build-coordinator.in') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 22e9bd5..b3b20f4 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -725,6 +725,11 @@ tags: (lambda (description) (simple-format #t " description:\n ~A" description))) + (and=> (assoc "active" agent) + (match-lambda + (("active" . active?) + (simple-format #t " active?: ~A\n" + (if active? "true" "false"))))) (let ((allocated-builds (vector->list (assoc-ref agent "allocated_builds")))) -- cgit v1.2.3