diff options
author | Christopher Baines <mail@cbaines.net> | 2023-02-21 11:44:22 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-02-21 11:44:22 +0000 |
commit | 811b3988c89874704dcd74d66105baef36a34db4 (patch) | |
tree | b96ae7db0983b3450a79408e75b3fc5ee5b82ae4 /guix-build-coordinator/client-communication.scm | |
parent | 9920e359bb0c8e9c97f8eaf53219578d49b4a984 (diff) | |
download | build-coordinator-811b3988c89874704dcd74d66105baef36a34db4.tar build-coordinator-811b3988c89874704dcd74d66105baef36a34db4.tar.gz |
Rework canceling builds
Previously there were some protections introduced against canceling builds
that were required by other builds, but this change wasn't quite complete as
at least the command line interface wasn't updated to take this in to account.
This commit updates the command line interface, as well as improving the
controller.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 926c4f4..39b0c23 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -173,13 +173,14 @@ (setup-failures . ,(list->vector setup-failures)))))))) (('POST "build" uuid "cancel") (let ((query-parameters (request-query-parameters request))) - (cancel-build build-coordinator uuid - #:ignore-if-build-required-by-another? - (string=? (assq-ref query-parameters - 'ignore-if-build-required-by-another) - "true")) (render-json - `((result . "build-canceled"))))) + `((result + . + ,(cancel-build build-coordinator uuid + #:ignore-if-build-required-by-another? + (string=? (assq-ref query-parameters + 'ignore-if-build-required-by-another) + "true"))))))) (('POST "build" uuid "update-priority") (update-build-priority build-coordinator |