From 13d64578862d44b08f8bb7596b93bd10227b93ce Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 28 May 2021 14:52:47 +0100 Subject: 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. --- guix-build-coordinator/agent-messaging/http.scm | 3 ++- guix-build-coordinator/utils.scm | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3