aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-10-11 10:30:42 +0100
committerChristopher Baines <mail@cbaines.net>2022-10-11 10:30:42 +0100
commit05529c1757d0d5e2a81040b86b4a825c7d88fd9c (patch)
tree12927892a02baa53eb3e4bfbf36dc4dcc6d3ab5d /scripts
parent054658c5496a66d91a8b42f555298c745a7599f6 (diff)
downloadbuild-coordinator-05529c1757d0d5e2a81040b86b4a825c7d88fd9c.tar
build-coordinator-05529c1757d0d5e2a81040b86b4a825c7d88fd9c.tar.gz
Support listing builds and including/excluding builds by relationship
This is to help cancel builds, but where you want to avoid builds that are still needed by others.
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in9
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in
index 5e02daf..5b7a580 100644
--- a/scripts/guix-build-coordinator.in
+++ b/scripts/guix-build-coordinator.in
@@ -198,6 +198,11 @@
(lambda (opt name arg result)
(alist-cons 'priority-<
(string->number arg)
+ result)))
+ (option '("build-relationship") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'relationship
+ (string->symbol arg)
result)))))
(define %common-build-filtering-option-defaults
@@ -208,7 +213,8 @@
(processed . 'unset)
(canceled . 'unset)
(priority-> . 'unset)
- (priority-< . 'unset)))
+ (priority-< . 'unset)
+ (relationship . 'unset)))
(define %builds-list-options
(cons* (option '("after-id") #t #f
@@ -511,6 +517,7 @@ canceled?: ~A
#:canceled (assq-ref opts 'canceled)
#:priority-> (assq-ref opts 'priority->)
#:priority-< (assq-ref opts 'priority-<)
+ #:relationship (assq-ref opts 'relationship)
#:after-id (or after-id (assq-ref opts 'after-id))
#:limit (assq-ref opts 'limit))))
(for-each