diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-23 09:55:41 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-23 09:55:41 +0000 |
| commit | 18074e82b68190c67390bb266ba7d9b3b8f96053 (patch) | |
| tree | e8606ca4d23f191a600dcf8bb55e7d3da5190036 /scripts | |
| parent | a129cc97756eb8f69e909a3aadd954c947561810 (diff) | |
| download | build-coordinator-18074e82b68190c67390bb266ba7d9b3b8f96053.tar build-coordinator-18074e82b68190c67390bb266ba7d9b3b8f96053.tar.gz | |
Don't try to cancel processed builds
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 12 |
1 files changed, 3 insertions, 9 deletions
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)) |