diff options
author | Christopher Baines <mail@cbaines.net> | 2021-11-12 12:51:09 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-11-12 12:51:09 +0000 |
commit | aa6fe55754f7a7c21e4fb454a641d24ab957a0de (patch) | |
tree | e0afeeb9500d9faec5cc8797c277329ddde512d4 /scripts/guix-build-coordinator.in | |
parent | db54f65769ab5b790a7438e8725c045358b71279 (diff) | |
download | build-coordinator-aa6fe55754f7a7c21e4fb454a641d24ab957a0de.tar build-coordinator-aa6fe55754f7a7c21e4fb454a641d24ab957a0de.tar.gz |
Show agent names when listing agents
Diffstat (limited to 'scripts/guix-build-coordinator.in')
-rw-r--r-- | scripts/guix-build-coordinator.in | 8 |
1 files changed, 6 insertions, 2 deletions
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")))) |