diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-12 14:09:18 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-12 14:09:18 +0000 |
| commit | 74a5e012e467d281d8fdb6ac0e1713ae7b8859b9 (patch) | |
| tree | b4f5d0c94e8be336422d1d663da6ffa453b681e3 /scripts/guix-build-coordinator.in | |
| parent | 47fdfafdd613fdaf9ff975e14d968e4bcdf95827 (diff) | |
| download | build-coordinator-74a5e012e467d281d8fdb6ac0e1713ae7b8859b9.tar build-coordinator-74a5e012e467d281d8fdb6ac0e1713ae7b8859b9.tar.gz | |
Show the active status of agents when listing them
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 5 |
1 files changed, 5 insertions, 0 deletions
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")))) |