diff options
Diffstat (limited to 'guix-build-coordinator')
-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 |