From 6e1da5700fc43b1e4f98bca2ed8518839cdb2173 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 8 Feb 2024 13:35:35 +0000 Subject: Expose information about setup failures --- guix-build-coordinator/client-communication.scm | 20 ++++++++++++++++++++ 1 file changed, 20 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 094ab4e..5a66cdd 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -55,6 +55,7 @@ request-agent-build-allocation-plan request-agents-list request-failed-builds-with-blocking-count-list + request-setup-failures send-create-agent-request send-agent-set-active-request send-create-agent-password-request @@ -334,6 +335,16 @@ (render-json `((error . 404)) #:code 404)))) + (('GET "setup-failures") + (let ((query-parameters (request-query-parameters request))) + (render-json + `((setup_failures + . ,(hash-map->list + (lambda (k v) + (cons k (list->vector v))) + (datastore-fetch-setup-failures + datastore + #:agent-id (assq-ref query-parameters 'agent-id)))))))) (('GET "builds") (let* ((query-parameters (request-query-parameters request)) (fold-builds-args @@ -944,6 +955,15 @@ "false")) "")))) +(define* (request-setup-failures coordinator-uri #:key agent-id) + (send-request coordinator-uri + 'GET + (string-append + "/setup-failures" + (if agent-id + (simple-format #f "?agent-id=~A" agent-id) + "")))) + (define* (send-create-agent-request coordinator-uri #:key requested-uuid -- cgit v1.2.3