From 49ea0deba5d985812d52836f4aa193408be698c8 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 7 Jul 2022 18:23:53 +0100 Subject: Support listing builds by priority --- scripts/guix-build-coordinator.in | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'scripts') 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 -- cgit v1.2.3