diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 6191c90..3c4cb29 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -709,7 +709,36 @@ tags: #t "~A: ~A\n" (assoc-ref agent "uuid") (or (assoc-ref agent "description") - "(no description)"))) + "(no description)")) + (let ((allocated-builds + (vector->list + (assoc-ref agent "allocated_builds")))) + (simple-format #t " ~A allocated builds:\n" + (length allocated-builds)) + (for-each (lambda (allocated-build) + (simple-format #t " - ~A: ~A\n" + (assoc-ref allocated-build + "uuid") + (or + (assoc-ref allocated-build + "derivation_name") + (assoc-ref allocated-build + "derivation-name")))) + allocated-builds)) + (simple-format #t " requested systems:\n") + (for-each (lambda (requested-system) + (simple-format #t " - ~A\n" requested-system)) + (vector->list + (assoc-ref agent "requested_systems"))) + (let ((tags (assoc-ref agent "tags"))) + (simple-format #t " tags:\n") + (for-each (lambda (tag) + (let ((key (assoc-ref tag "key")) + (value (assoc-ref tag "value"))) + (simple-format #t " - ~A: ~A\n" + key value))) + (vector->list tags))) + (newline)) (vector->list (assoc-ref (request-agents-list (assq-ref opts 'coordinator)) |