aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-08-02 17:47:21 +0100
committerChristopher Baines <mail@cbaines.net>2023-08-02 17:47:21 +0100
commit4ccdf47cf92ebd946cc507ab283d5860b824ff16 (patch)
tree0cdceb91b867571607e5d98d011fd3d7a2d478a0 /scripts
parentfd5964449ad902621ded6eec894ce094ece38e0d (diff)
downloadbuild-coordinator-4ccdf47cf92ebd946cc507ab283d5860b824ff16.tar
build-coordinator-4ccdf47cf92ebd946cc507ab283d5860b824ff16.tar.gz
Support canceling builds that are depended on
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in10
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