From 3175ac21c2eea043297e9a47e374635baad03c79 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 7 Jul 2022 22:11:38 +0100 Subject: Support updating build priorities through the command line --- guix-build-coordinator/client-communication.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'guix-build-coordinator/client-communication.scm') 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 -- cgit v1.2.3