From 4ccdf47cf92ebd946cc507ab283d5860b824ff16 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 2 Aug 2023 17:47:21 +0100 Subject: Support canceling builds that are depended on --- scripts/guix-build-coordinator.in | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 9aa4749..6f870d5 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -292,6 +292,11 @@ (lambda (opt name arg result) (alist-cons 'ignore-if-build-required-by-another (string=? arg "true") + result))) + (option '("build-relationship") #t #f + (lambda (opt name arg result) + (alist-cons 'relationship + (string->symbol arg) result))))) (define %build-cancel-option-defaults @@ -299,7 +304,8 @@ (not-tags . ()) (systems . ()) (not-systems . ()) - (ignore-if-build-required-by-another . #t))) + (ignore-if-build-required-by-another . #t) + (relationship . no-dependent-builds))) (define %build-update-priority-options (cons* (option '("new-priority") #t #f @@ -613,7 +619,7 @@ tags: #:not-systems (assq-ref opts 'not-systems) #:processed #f #:canceled #f - #:relationship 'no-dependent-builds))) + #:relationship (assq-ref opts 'relationship))) (stream->list (stream-map -- cgit v1.2.3