diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-02 16:41:20 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-02 16:41:20 +0200 |
| commit | a27926ddebc6a94f00cbcb773892b02bd30a4342 (patch) | |
| tree | 9996547276f4cad4434d4c25647caa19d858059c /scripts | |
| parent | e7dec01910cfcd1bf9f6735e20af12393f2128a9 (diff) | |
| download | build-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.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 |