diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-22 21:00:32 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-22 21:00:32 +0100 |
commit | 71d7afb345d05296468655f7466c127c58b821ae (patch) | |
tree | aed421249953be02f8ad47d729e21b3514cf1603 /scripts | |
parent | 46a95a9e80be141165304fed4547d816fb748996 (diff) | |
download | build-coordinator-71d7afb345d05296468655f7466c127c58b821ae.tar build-coordinator-71d7afb345d05296468655f7466c127c58b821ae.tar.gz |
Support showing blocking builds
This is useful to find builds that have failed, and in failing blocked other
builds from being attempted.
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/guix-build-coordinator.in | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 77ab46e..480dda0 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -312,6 +312,20 @@ processed?: ~A build-id))) (display-build `(("uuid" . ,build-id) ,@response))))))) + (("build" "show-blocking" rest ...) + (let ((opts (parse-options %base-options + %base-option-defaults + rest))) + (let ((response (request-failed-builds-with-blocking-count-list + (assq-ref opts 'coordinator)))) + (for-each + (lambda (build) + (format + #t "~a (~5d): ~a~%" + (assoc-ref build "uuid") + (assoc-ref build "blocked_count") + (assoc-ref build "derivation_name"))) + (vector->list (assoc-ref response "builds")))))) (("build" rest ...) (let ((opts (parse-options (append %build-options %base-options) |