diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-14 10:32:30 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-14 10:32:30 +0100 |
| commit | 8b88e02ab738eae581bb1c19873b9bf6542084a9 (patch) | |
| tree | 615621d07804e9a3f85f1b07ccd9a136051cc4a2 /guix-build-coordinator/agent-messaging/http.scm | |
| parent | 4ecc4cb017d4ebba8dfbf4ec62465e80e8260b63 (diff) | |
| download | build-coordinator-8b88e02ab738eae581bb1c19873b9bf6542084a9.tar build-coordinator-8b88e02ab738eae581bb1c19873b9bf6542084a9.tar.gz | |
Tweak output upload timeout
Make it longer to avoid timeouts for large files, and increase the delay
before restarting the upload.
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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 |