diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-02-13 13:55:52 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-02-13 13:55:52 +0000 |
| commit | 1b71cf7ce97dc15ba0061fda71f6bb07311946db (patch) | |
| tree | 6ba491d75d5306d0ad8389aab7464762c8a1ca85 | |
| parent | 6e1da5700fc43b1e4f98bca2ed8518839cdb2173 (diff) | |
| download | build-coordinator-1b71cf7ce97dc15ba0061fda71f6bb07311946db.tar build-coordinator-1b71cf7ce97dc15ba0061fda71f6bb07311946db.tar.gz | |
Show tags with build show
| -rw-r--r-- | scripts/guix-build-coordinator.in | 12 |
1 files changed, 12 insertions, 0 deletions
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")))) |