diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-22 21:00:32 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-22 21:00:32 +0100 |
commit | 71d7afb345d05296468655f7466c127c58b821ae (patch) | |
tree | aed421249953be02f8ad47d729e21b3514cf1603 /guix-build-coordinator/client-communication.scm | |
parent | 46a95a9e80be141165304fed4547d816fb748996 (diff) | |
download | build-coordinator-71d7afb345d05296468655f7466c127c58b821ae.tar build-coordinator-71d7afb345d05296468655f7466c127c58b821ae.tar.gz |
Support showing blocking builds
This is useful to find builds that have failed, and in failing blocked other
builds from being attempted.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 6f5e38c..86f75d8 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -41,6 +41,7 @@ request-build-details request-output-details request-agents-list + request-failed-builds-with-blocking-count-list send-create-agent-request send-create-agent-password-request)) @@ -132,6 +133,11 @@ `(,@build-details (derivation-inputs . ,(list->vector derivation-inputs)) (setup-failures . ,(list->vector setup-failures)))))))) + (('GET "builds" "blocking") + (render-json + `((builds + . ,(list->vector + (datastore-list-failed-builds-with-blocking-count datastore)))))) (('GET "output" output-components ...) (let* ((output (string-append "/" (string-join output-components "/"))) @@ -300,6 +306,11 @@ 'GET (string-append "/agents"))) +(define (request-failed-builds-with-blocking-count-list coordinator-uri) + (send-request coordinator-uri + 'GET + (string-append "/builds/blocking"))) + (define* (send-create-agent-request coordinator-uri #:key requested-uuid |