From aa6fe55754f7a7c21e4fb454a641d24ab957a0de Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 12 Nov 2021 12:51:09 +0000 Subject: Show agent names when listing agents --- scripts/guix-build-coordinator.in | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'scripts/guix-build-coordinator.in') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 166790e..22e9bd5 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -719,8 +719,12 @@ tags: (simple-format #t "~A: ~A\n" (assoc-ref agent "uuid") - (or (assoc-ref agent "description") - "(no description)")) + (or (assoc-ref agent "name") + "(no name)")) + (and=> (assoc-ref agent "description") + (lambda (description) + (simple-format #t " description:\n ~A" + description))) (let ((allocated-builds (vector->list (assoc-ref agent "allocated_builds")))) -- cgit v1.2.3