diff options
| -rw-r--r-- | guix/build/http.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/build/http.scm b/guix/build/http.scm index a0fc452844..65c09fa4cd 100644 --- a/guix/build/http.scm +++ b/guix/build/http.scm @@ -77,6 +77,9 @@ which is not available during bootstrap." (define (http-fetch url file) "Fetch data from URL and write it to FILE. Return FILE on success." + (setvbuf (current-output-port) _IOLBF) + (format #t "starting HTTP download of `~a' from `~a'...~%" file url) + ;; FIXME: Use a variant of `http-get' that returns a port instead of ;; loading everything in memory. (let*-values (((uri) |