aboutsummaryrefslogtreecommitdiff
path: root/scripts/guix-build-coordinator.in
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/guix-build-coordinator.in')
-rw-r--r--scripts/guix-build-coordinator.in14
1 files changed, 14 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in
index c9e7ee9..937ee4b 100644
--- a/scripts/guix-build-coordinator.in
+++ b/scripts/guix-build-coordinator.in
@@ -188,6 +188,16 @@
(alist-cons 'canceled
(string=? arg "true")
result)))
+ (option '("priority-gt") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'priority->
+ (string->number arg)
+ result)))
+ (option '("priority-lt") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'priority-<
+ (string->number arg)
+ result)))
(option '("after-id") #t #f
(lambda (opt name arg result)
(alist-cons 'after-id
@@ -206,6 +216,8 @@
(not-systems . ())
(processed . 'unset)
(canceled . 'unset)
+ (priority-> . 'unset)
+ (priority-< . 'unset)
(limit . 1000)))
(define %build-cancel-options
@@ -479,6 +491,8 @@ canceled?: ~A
#:not-systems (assq-ref opts 'not-systems)
#:processed (assq-ref opts 'processed)
#:canceled (assq-ref opts 'canceled)
+ #:priority-> (assq-ref opts 'priority->)
+ #:priority-< (assq-ref opts 'priority-<)
#:after-id (or after-id (assq-ref opts 'after-id))
#:limit (assq-ref opts 'limit))))
(for-each