aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-05-08 11:16:21 +0100
committerChristopher Baines <mail@cbaines.net>2020-05-08 11:16:21 +0100
commit8521730bed4bb9d17cd76def17d06d089d46d91f (patch)
tree4270d3e8ad92d1481c00388ed04b8bb06da19b7b
parentc134165dc4a459423c599bd6a6f1a0a8a459b7c4 (diff)
downloadbuild-coordinator-8521730bed4bb9d17cd76def17d06d089d46d91f.tar
build-coordinator-8521730bed4bb9d17cd76def17d06d089d46d91f.tar.gz
Treat access denied retry responses as successful
For reporting setup failures.
-rw-r--r--guix-build-coordinator/agent-messaging/http.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm
index 3f4f5ba..dacf254 100644
--- a/guix-build-coordinator/agent-messaging/http.scm
+++ b/guix-build-coordinator/agent-messaging/http.scm
@@ -590,7 +590,8 @@ port. Also, the port used can be changed by passing the --port option.\n"
coordinator-uri agent-uuid password
(string-append "/build/" build-id "/report-setup-failure")
#:method 'POST
- #:body report))
+ #:body report
+ #:succeed-on-access-denied-retry? #t))
(define (fetch-builds-for-agent coordinator-uri agent-uuid password)
(vector->list