summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/build/download.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm
index fb236d314a..3c8359b602 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -167,8 +167,8 @@ used to shorten FILE for display."
(seconds->string elapsed)
(progress-bar %) %)))
;; TODO: Make this adapt to the actual terminal width.
+ (display "\r\x1b[K" log-port)
(display (string-pad-middle left right 80) log-port)
- (display #\cr log-port)
(flush-output-port log-port)
(cont))))
(lambda (transferred cont)
@@ -183,8 +183,8 @@ used to shorten FILE for display."
(seconds->string elapsed)
(byte-count->string transferred))))
;; TODO: Make this adapt to the actual terminal width.
+ (display "\r\x1b[K" log-port)
(display (string-pad-middle left right 80) log-port)
- (display #\cr log-port)
(flush-output-port log-port)
(cont))))))))