diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-04-16 13:45:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-04-16 13:45:23 +0100 |
| commit | 6ea7eba938af6beb1dcbaff63206be5b706bfa71 (patch) | |
| tree | 2d131c76d9eb38085d6089a5e5a29536bf33b515 /scripts | |
| parent | 6fb5eafc33efa109b220efe71594cfcdb2efe133 (diff) | |
| download | build-coordinator-6ea7eba938af6beb1dcbaff63206be5b706bfa71.tar build-coordinator-6ea7eba938af6beb1dcbaff63206be5b706bfa71.tar.gz | |
Support finding blocking builds not including cancelled ones
As including cancelled ones can make the query much slower.
Diffstat (limited to 'scripts')
| -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 |