~ruther/guix-local

395bea2a53ed7398e52a0a85370a554501af5678 — Ludovic Courtès 12 years ago 58ec6f4 
download: Improve progress report output.

* guix/build/download.scm (url-fetch): Make current-output-port
  unbuffered.
patch browse .tar.gz 
1 files changed, 4 insertions(+), 1 deletions(-)

M guix/build/download.scm

M guix/build/download.scm => guix/build/download.scm +4 -1
@@ 307,7 307,10 @@ on success."
               uri)
       #f)))

  (setvbuf (current-output-port) _IOLBF)
  ;; Make this unbuffered so 'progress-proc' works as expected.  _IOLBF means
  ;; '\n', not '\r', so it's not appropriate here.
  (setvbuf (current-output-port) _IONBF)

  (setvbuf (current-error-port) _IOLBF)

  (let try ((uri uri))