aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator.in37
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