aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/agent-messaging/http.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
-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 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?))