diff options
| author | John Kehayias <john.kehayias@protonmail.com> | 2023-11-11 17:21:39 -0500 |
|---|---|---|
| committer | John Kehayias <john.kehayias@protonmail.com> | 2023-11-11 17:21:39 -0500 |
| commit | 8d0a3bfcdae4bc9dd15e7fb0488dce8f16e8f867 (patch) | |
| tree | 77f19aa2370df0e0d9bfc7effd5fd5f982642cef /guix/progress.scm | |
| parent | aee3c5a894fddf88810f18fa8880b423b078b3fa (diff) | |
| parent | af6105afc67a15a491a0a4fd18a28c9f801a0b94 (diff) | |
Merge branch 'master' into mesa-updates
Change-Id: I6848392e8c1ffca1473bd25511d8d90ae0f98ce7
Diffstat (limited to 'guix/progress.scm')
| -rw-r--r-- | guix/progress.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/progress.scm b/guix/progress.scm index 33cf6f4a1a..13d3ddc171 100644 --- a/guix/progress.scm +++ b/guix/progress.scm @@ -21,6 +21,8 @@ (define-module (guix progress) #:use-module (guix records) + #:use-module ((guix build syscalls) + #:select (terminal-string-width)) #:use-module (srfi srfi-19) #:use-module (rnrs io ports) #:use-module (rnrs bytevectors) @@ -307,7 +309,7 @@ tasks is performed. Write PREFIX at the beginning of the line." (if (string-null? prefix) (display (progress-bar ratio (current-terminal-columns)) port) (let ((width (- (current-terminal-columns) - (string-length prefix) 3))) + (terminal-string-width prefix) 3))) (display prefix port) (display " " port) (display (progress-bar ratio width) port))) |