aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-01-31 11:00:46 +0000
committerChristopher Baines <mail@cbaines.net>2021-01-31 11:00:46 +0000
commit6133a8c1e194d35a0c0a253b3257487c6036705c (patch)
tree91dcf6f9f146820a236604317637b19c18533c0b
parent477b0ab04298e4de17244130315de86a4db993a4 (diff)
downloadbuild-coordinator-6133a8c1e194d35a0c0a253b3257487c6036705c.tar
build-coordinator-6133a8c1e194d35a0c0a253b3257487c6036705c.tar.gz
List more information about agents
-rw-r--r--scripts/guix-build-coordinator.in31
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))