diff --git a/guix/build/download.scm b/guix/build/download.scm index e954963..6e85174 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -125,12 +125,12 @@ bytes long. The returned procedure is suitable for use as an argument to (seconds->string elapsed) (progress-bar %) %)) ;; TODO: Make this adapt to the actual terminal width. - (cols 90) + (cols 80) (num-spaces (max 1 (- cols (+ (string-length left) (string-length right))))) (gap (make-string num-spaces #\space))) - (display #\cr log-port) (format log-port "~a~a~a" left gap right) + (display #\cr log-port) (flush-output-port log-port) (cont)))) (lambda (transferred cont)