summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-06-12 09:28:28 +0200
committerLudovic Courtès <ludo@gnu.org>2018-06-12 15:23:34 +0200
commit4c97a368a698ccf89113a258e8cf5e7947fbcc08 (patch)
treef7a301a183187eabb393241727548f20e165b405 /guix/scripts
parentb5edc4791240d06aae07d6b8c4cb7a7b3f1937b1 (diff)
substitute: Erase the current line when reporting progress.
* guix/scripts/substitute.scm (fetch-narinfos)[update-progress!]: Use the ANSI erase-current-line sequence next to \r.
Diffstat (limited to 'guix/scripts')
-rwxr-xr-xguix/scripts/substitute.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index 8e1119fb49..ab52245e8e 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -613,7 +613,7 @@ if file doesn't exist, and the narinfo otherwise."
(let ((done 0)
(total (length paths)))
(lambda ()
- (display #\cr (current-error-port))
+ (display "\r\x1b[K" (current-error-port)) ;erase current line
(force-output (current-error-port))
(format (current-error-port)
(G_ "updating list of substitutes from '~a'... ~5,1f%")