diff options
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 3 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 1576c0f..7f9b71f 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -176,7 +176,8 @@ (json-string->scm (utf8->string body)) response)))))) - (retry-on-error make-request + (retry-on-error (lambda () + (with-gc-protection make-request)) #:times 9 #:delay 10 #:ignore agent-error-from-coordinator?)) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 42ba00a..5f74ed0 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -35,6 +35,8 @@ make-base64-output-port + with-gc-protection + request-query-parameters call-with-streaming-http-request |