diff options
Diffstat (limited to 'scripts/guix-build-coordinator.in')
-rw-r--r-- | scripts/guix-build-coordinator.in | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index f85a0ce..c5c97fd 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -250,7 +250,15 @@ (lambda (opt name arg result) (alist-cons 'system arg - (alist-delete 'system result)))))) + (alist-delete 'system result)))) + (option '("include-canceled") #t #f + (lambda (opt name arg result) + (alist-cons 'include-canceled? + (string=? arg "true") + result))))) + +(define %build-show-blocking-option-defaults + '((include-cancelled? . #f))) (define %agent-tag-options (list (option '("tag") #t #f @@ -498,11 +506,13 @@ tags: %client-options %build-show-blocking-options) (append %base-option-defaults - %client-option-defaults) + %client-option-defaults + %build-show-blocking-option-defaults) rest))) (let ((response (request-failed-builds-with-blocking-count-list (assq-ref opts 'coordinator) - (assq-ref opts 'system)))) + (assq-ref opts 'system) + #:include-cancelled? (assq-ref opts 'include-cancelled?)))) (for-each (lambda (build) (format |