diff options
| -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")))) |