diff options
author | Christopher Baines <mail@cbaines.net> | 2021-04-16 13:45:23 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-04-16 13:45:23 +0100 |
commit | 6ea7eba938af6beb1dcbaff63206be5b706bfa71 (patch) | |
tree | 2d131c76d9eb38085d6089a5e5a29536bf33b515 /guix-build-coordinator/client-communication.scm | |
parent | 6fb5eafc33efa109b220efe71594cfcdb2efe133 (diff) | |
download | build-coordinator-6ea7eba938af6beb1dcbaff63206be5b706bfa71.tar build-coordinator-6ea7eba938af6beb1dcbaff63206be5b706bfa71.tar.gz |
Support finding blocking builds not including cancelled ones
As including cancelled ones can make the query much slower.
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index e02e9f9..3eb2f9e 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -179,7 +179,9 @@ . ,(list->vector (datastore-list-failed-builds-with-blocking-count datastore - (assq-ref query-parameters 'system)))))))) + (assq-ref query-parameters 'system) + #:include-cancelled? + (assq-ref query-parameters 'include_cancelled?)))))))) (('GET "output" output-components ...) (let* ((output (string-append "/" (string-join output-components "/"))) @@ -616,13 +618,25 @@ (string-append "/agents"))) -(define (request-failed-builds-with-blocking-count-list coordinator-uri system) +(define* (request-failed-builds-with-blocking-count-list + coordinator-uri + system + #:key include-cancelled?) (send-request coordinator-uri 'GET - (string-append "/builds/blocking" - (if system - (simple-format #f "?system=~A" system) - "")))) + (string-append + "/builds/blocking" + (if system + (simple-format #f "?system=~A" system) + "") + (if include-cancelled? + (string-append + (if system "&" "?") + "include_cancelled=" + (if include-cancelled? + "true" + "false")) + "")))) (define* (send-create-agent-request coordinator-uri #:key |