diff options
author | Christopher Baines <mail@cbaines.net> | 2022-07-07 22:11:38 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-07-07 22:11:38 +0100 |
commit | 3175ac21c2eea043297e9a47e374635baad03c79 (patch) | |
tree | ec080881eae8fae934180556f11770c3a68ae668 /guix-build-coordinator/client-communication.scm | |
parent | 08f1ecda5d7e5ef81c92380bcca3960267fa9199 (diff) | |
download | build-coordinator-3175ac21c2eea043297e9a47e374635baad03c79.tar build-coordinator-3175ac21c2eea043297e9a47e374635baad03c79.tar.gz |
Support updating build priorities through the command line
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 2453800..9c13e76 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -45,6 +45,7 @@ send-submit-build-request send-cancel-build-request + send-update-build-priority-request request-build-details request-builds-list request-output-details @@ -173,6 +174,14 @@ (cancel-build build-coordinator uuid) (render-json `((result . "build-canceled")))) + (('POST "build" uuid "update-priority") + (update-build-priority + build-coordinator + uuid + (assoc-ref body "new_priority")) + + (render-json + `((result . "build-priority-updated")))) (('GET "builds" "blocking") (let ((query-parameters (request-query-parameters request))) (render-json @@ -574,6 +583,15 @@ 'POST (string-append "/build/" build-id "/cancel"))) +(define (send-update-build-priority-request + coordinator-uri + build-id + new-priority) + (send-request coordinator-uri + 'POST + (string-append "/build/" build-id "/update-priority") + `((new_priority . ,new-priority)))) + (define (request-build-details coordinator-uri uuid) (send-request coordinator-uri |