diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:52:47 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-05-28 14:52:47 +0100 |
| commit | 13d64578862d44b08f8bb7596b93bd10227b93ce (patch) | |
| tree | 1b53cb8433ffb6df4a2f2c6a00e0ad6033416414 | |
| parent | b23040abfa493351a5b3723ba4be23e4ef5a8e67 (diff) | |
| download | build-coordinator-13d64578862d44b08f8bb7596b93bd10227b93ce.tar build-coordinator-13d64578862d44b08f8bb7596b93bd10227b93ce.tar.gz | |
Use GC protection for normal requests to the coordinator as well
Since the gc breaking gnutls problem can occur for these requests probably as
well.
| -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 |