diff options
Diffstat (limited to 'guix-build-coordinator/agent-messaging/http.scm')
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 01a2c15..d2e0e0e 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -281,6 +281,7 @@ (lambda* (build-id output-name file #:key (log default-log) + reporter-set-bytes-already-sent reporter report-bytes-hashed) (define file-size @@ -352,8 +353,11 @@ ", partial upload bytes: " bytes ")") (begin (log 'DEBUG "starting sending file from start") - (set! %force-full-upload #f) - (progress-reporter-report! reporter 'reset)))) + + ;; Set this to enable partial uploads when retrying + (set! %force-full-upload #f)))) + + (reporter-set-bytes-already-sent (or bytes 0)) (let* ((bytes-to-send (if bytes |