aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-05-02 16:41:20 +0200
committerChristopher Baines <mail@cbaines.net>2023-05-02 16:41:20 +0200
commita27926ddebc6a94f00cbcb773892b02bd30a4342 (patch)
tree9996547276f4cad4434d4c25647caa19d858059c /scripts
parente7dec01910cfcd1bf9f6735e20af12393f2128a9 (diff)
downloadbuild-coordinator-a27926ddebc6a94f00cbcb773892b02bd30a4342.tar
build-coordinator-a27926ddebc6a94f00cbcb773892b02bd30a4342.tar.gz
Log the result of cancelling builds
As this sometimes that cancelling the build is skipped.
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