ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

download: Improve progress report output.

Browse source 
* guix/build/download.scm (url-fetch): Make current-output-port
  unbuffered.
This commit is contained in:
Ludovic Courtès 2014-04-16 12:25:25 +02:00
parent 58ec6f4ba9
commit 395bea2a53
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/download.scm
View file

@ -307,7 +307,10 @@ (define (fetch uri file)
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))