diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 96c67ec..9a2732d 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -126,7 +126,8 @@ interface path #:key method body (headers '()) - succeed-on-access-denied-retry?) + succeed-on-access-denied-retry? + retry-times) (define auth-value (string-append "Basic " @@ -196,7 +197,7 @@ (retry-on-error (lambda () (with-port-timeouts make-request)) - #:times 9 + #:times retry-times #:delay 10 #:ignore agent-error-from-coordinator?)) @@ -250,7 +251,8 @@ (apply (lambda* (status #:key 1min-load-average system-uptime (log default-log) - initial-status-update?) + initial-status-update? + (retry-times 1)) (coordinator-http-request log interface @@ -267,7 +269,8 @@ '()) ,@(if initial-status-update? `((initial_status_update . #t)) - '())))) + '())) + #:retry-times retry-times)) args)) (define-method (submit-output |