diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 37 |
1 files changed, 21 insertions, 16 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index bc94f53..18b6ac9 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -654,26 +654,31 @@ tags: (lambda (report) (for-each (lambda (id) - (send-cancel-build-request - (assq-ref opts 'coordinator) - id - #:skip-updating-derived-priorities? - (assq-ref opts 'skip-updating-derived-priorities) - #:ignore-if-build-required-by-another? - (assq-ref - opts 'ignore-if-build-required-by-another)) + (let ((result + (send-cancel-build-request + (assq-ref opts 'coordinator) + id + #:skip-updating-derived-priorities? + (assq-ref opts 'skip-updating-derived-priorities) + #:ignore-if-build-required-by-another? + (assq-ref + opts 'ignore-if-build-required-by-another)))) + (simple-format #t "~A\n" + (assoc-ref result "result"))) (report)) matching-builds))) (loop (get-batch))))))) ((build-id) - (send-cancel-build-request - (assq-ref opts 'coordinator) - build-id - #:skip-updating-derived-priorities? - (assq-ref opts 'skip-updating-derived-priorities) - #:ignore-if-build-required-by-another? - (assq-ref - opts 'ignore-if-build-required-by-another)))))) + (let ((result + (send-cancel-build-request + (assq-ref opts 'coordinator) + build-id + #:skip-updating-derived-priorities? + (assq-ref opts 'skip-updating-derived-priorities) + #:ignore-if-build-required-by-another? + (assq-ref + opts 'ignore-if-build-required-by-another)))) + (simple-format #t "~A\n" (assoc-ref result "result"))))))) (("build" "update-priority" rest ...) (let ((opts (parse-options (append %client-options %base-options |