diff options
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 |