diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-06-12 09:28:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-06-12 15:23:34 +0200 |
| commit | 4c97a368a698ccf89113a258e8cf5e7947fbcc08 (patch) | |
| tree | f7a301a183187eabb393241727548f20e165b405 /guix/scripts | |
| parent | b5edc4791240d06aae07d6b8c4cb7a7b3f1937b1 (diff) | |
| download | gnu-guix-4c97a368a698ccf89113a258e8cf5e7947fbcc08.tar gnu-guix-4c97a368a698ccf89113a258e8cf5e7947fbcc08.tar.gz | |
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-x | guix/scripts/substitute.scm | 2 |
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%") |