From 18074e82b68190c67390bb266ba7d9b3b8f96053 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 23 Dec 2020 09:55:41 +0000 Subject: Don't try to cancel processed builds --- scripts/guix-build-coordinator.in | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 9fb6edf..7bb0593 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -186,17 +186,11 @@ ((key value) (cons key value))) (or (assq-ref result 'not-tags) '())) - (alist-delete 'not-tags result)))) - (option '("processed") #t #f - (lambda (opt name arg result) - (alist-cons 'processed - (string=? arg "true") - result))))) + (alist-delete 'not-tags result)))))) (define %build-cancel-option-defaults `((tags . ()) - (not-tags . ()) - (processed . 'unset))) + (not-tags . ()))) (define %service-options (list (option '("pid-file") #t #f @@ -447,7 +441,7 @@ tags: (assq-ref opts 'coordinator) #:tags (assq-ref opts 'tags) #:not-tags (assq-ref opts 'not-tags) - #:processed (assq-ref opts 'processed) + #:processed #f #:canceled #f #:after-id after-id #:limit 1000)) -- cgit v1.2.3