diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-02 17:47:21 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-02 17:47:21 +0100 |
| commit | 4ccdf47cf92ebd946cc507ab283d5860b824ff16 (patch) | |
| tree | 0cdceb91b867571607e5d98d011fd3d7a2d478a0 | |
| parent | fd5964449ad902621ded6eec894ce094ece38e0d (diff) | |
| download | build-coordinator-4ccdf47cf92ebd946cc507ab283d5860b824ff16.tar build-coordinator-4ccdf47cf92ebd946cc507ab283d5860b824ff16.tar.gz | |
Support canceling builds that are depended on
| -rw-r--r-- | scripts/guix-build-coordinator.in | 10 |
1 files 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 |