diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 7d482d0..e6ebc01 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -245,6 +245,13 @@ (systems . ()) (not-systems . ()))) +(define %build-show-blocking-options + (list (option '("system") #t #f + (lambda (opt name arg result) + (alist-cons 'system + arg + (alist-delete 'system result)))))) + (define %agent-tag-options (list (option '("tag") #t #f (lambda (opt name arg result) @@ -508,12 +515,15 @@ tags: (- (vector-length (assoc-ref response "builds")) 1)) "uuid"))))))) (("build" "show-blocking" rest ...) - (let ((opts (parse-options %base-options + (let ((opts (parse-options (append %base-options + %client-options + %build-show-blocking-options) (append %base-option-defaults %client-option-defaults) rest))) (let ((response (request-failed-builds-with-blocking-count-list - (assq-ref opts 'coordinator)))) + (assq-ref opts 'coordinator) + (assq-ref opts 'system)))) (for-each (lambda (build) (format |