diff options
author | Christopher Baines <mail@cbaines.net> | 2024-02-08 13:35:35 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-02-08 13:35:35 +0000 |
commit | 6e1da5700fc43b1e4f98bca2ed8518839cdb2173 (patch) | |
tree | 89fffabc9d10ed1272f3033fac464ff11a6dd201 /guix-build-coordinator/client-communication.scm | |
parent | d9fa7947c25d0624c568f744ad2a2683a43e5644 (diff) | |
download | build-coordinator-6e1da5700fc43b1e4f98bca2ed8518839cdb2173.tar build-coordinator-6e1da5700fc43b1e4f98bca2ed8518839cdb2173.tar.gz |
Expose information about setup failures
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 20 |
1 files changed, 20 insertions, 0 deletions
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 |