diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index c892fe3..d2f2c8a 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -269,7 +269,12 @@ (cons arg (or (assq-ref result 'not-systems) '())) - (alist-delete 'not-systems result)))))) + (alist-delete 'not-systems result)))) + (option '("skip-updating-derived-priorities") #f #f + (lambda (opt name _ result) + (alist-cons 'skip-updating-derived-priorities + #t + result))))) (define %build-cancel-option-defaults `((tags . ()) @@ -632,14 +637,18 @@ tags: (for-each (lambda (id) (send-cancel-build-request (assq-ref opts 'coordinator) - id) + id + #:skip-updating-derived-priorities? + (assq-ref opts 'skip-updating-derived-priorities)) (report)) matching-builds))) (loop (get-batch))))))) ((build-id) (send-cancel-build-request (assq-ref opts 'coordinator) - build-id))))) + build-id + #:skip-updating-derived-priorities? + (assq-ref opts 'skip-updating-derived-priorities)))))) (("build" "update-priority" rest ...) (let ((opts (parse-options (append %client-options %base-options |