diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-31 11:00:46 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-31 11:00:46 +0000 |
| commit | 6133a8c1e194d35a0c0a253b3257487c6036705c (patch) | |
| tree | 91dcf6f9f146820a236604317637b19c18533c0b | |
| parent | 477b0ab04298e4de17244130315de86a4db993a4 (diff) | |
| download | build-coordinator-6133a8c1e194d35a0c0a253b3257487c6036705c.tar build-coordinator-6133a8c1e194d35a0c0a253b3257487c6036705c.tar.gz | |
List more information about agents
| -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)) |