aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
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