From 0eb708c8117db8ca849348c3cfc4981948944800 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 7 Aug 2021 14:43:48 +0100 Subject: Move retrying uploads out of the with-upload-slot region Such that the retry happens with a fresh slot (and the associated tracking information). --- guix-build-coordinator/agent-messaging/http.scm | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) (limited to 'guix-build-coordinator/agent-messaging/http.scm') diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 5e753eb..5ae2929 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -266,19 +266,15 @@ (with-store store (query-path-info store file))) - (retry-on-error - (lambda () - (call-with-streaming-http-request - uri - (lambda (port) - (call-with-lzip-output-port port - (lambda (port) - (write-file file port)) - #:level 9)) - #:headers `((Authorization . ,auth-value)) - #:report-bytes-sent report-bytes-sent)) - #:times 48 - #:delay (random 15))) + (call-with-streaming-http-request + uri + (lambda (port) + (call-with-lzip-output-port port + (lambda (port) + (write-file file port)) + #:level 9)) + #:headers `((Authorization . ,auth-value)) + #:report-bytes-sent report-bytes-sent)) args)) (define-method (submit-log-file -- cgit v1.2.3