diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-30 17:36:44 +0200 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-30 17:36:44 +0200 |
commit | a77b79cc7aa3d03765a0535d814e17c9b0210e07 (patch) | |
tree | 89950a32b046a341d2f834de09a28aa7f1522c2e /guix-build-coordinator/client-communication.scm | |
parent | 298b2c7a901ac0802a375e928c59d8179e170bdf (diff) | |
download | build-coordinator-a77b79cc7aa3d03765a0535d814e17c9b0210e07.tar build-coordinator-a77b79cc7aa3d03765a0535d814e17c9b0210e07.tar.gz |
Switch build_allocation_plan to build-allocation-plan
As this is more consistent with URLs.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index b78ffe6..ecb8ade 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -269,7 +269,9 @@ (datastore-list-agent-builds datastore agent-id))))))) - (('GET "agent" agent-id "build_allocation_plan") + (('GET "agent" agent-id (or "build-allocation-plan" + ;; TODO Remove _ variant + "build_allocation_plan")) (let ((agent-details (datastore-find-agent datastore agent-id))) (render-json `((build_allocation_plan @@ -817,7 +819,7 @@ (define (request-agent-build-allocation-plan coordinator-uri agent-id) (send-request coordinator-uri 'GET - (string-append "/agent/" agent-id "/build_allocation_plan"))) + (string-append "/agent/" agent-id "/build-allocation-plan"))) (define (request-agents-list coordinator-uri) (send-request coordinator-uri |