From 8c6e2a6a7c158610da676c49c00d54c7c5d71f1d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 14 Oct 2022 17:48:18 +0100 Subject: Reset the upload progress when appropriate --- guix-build-coordinator/agent-messaging/http.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (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 c331052..b02c598 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -329,7 +329,9 @@ (log 'DEBUG "still more to send (bytes: " file-size ", partial upload bytes: " partial-upload-bytes ", completed upload bytes: " completed-upload-bytes ")") - (log 'DEBUG "starting sending file from start")) + (begin + (log 'DEBUG "starting sending file from start") + (report-bytes-sent 'reset))) ;; Still more to send (call-with-input-file file -- cgit v1.2.3