From 8b88e02ab738eae581bb1c19873b9bf6542084a9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 14 Oct 2022 10:32:30 +0100 Subject: Tweak output upload timeout Make it longer to avoid timeouts for large files, and increase the delay before restarting the upload. --- guix-build-coordinator/agent-messaging/http.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 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 dae94b5..a530efd 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -337,7 +337,7 @@ (seek file-port bytes SEEK_SET) (log 'INFO "resuming upload from byte " bytes)) - (with-timeout (* 20 60) ; 20 minutes + (with-timeout (* 3600 2) ; 2 hours (raise-exception (make-exception-with-message "timeout submitting output")) (let-values (((response body) @@ -364,8 +364,8 @@ (unless (get-completed-upload-bytes) (retry-on-error perform-upload - #:times 100 - #:delay (random 15)))) + #:times 500 + #:delay (+ 60 (random 15))))) args)) (define-method (submit-log-file -- cgit v1.2.3