From 1b71cf7ce97dc15ba0061fda71f6bb07311946db Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 13 Feb 2024 13:55:52 +0000 Subject: Show tags with build show --- scripts/guix-build-coordinator.in | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 10970d7..4756bea 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -491,6 +491,18 @@ canceled?: ~A "yes" "no")) + (simple-format + #t + "tags:\n~A" + (string-join + (map (lambda (tag) + (let ((key (assoc-ref tag "key")) + (val (assoc-ref tag "value"))) + (string-append " " key ": " val))) + (vector->list + (assoc-ref build-details "tags"))) + "\n")) + (let ((derivation-inputs (vector->list (assoc-ref build-details "derivation-inputs")))) -- cgit v1.2.3