diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-11-09 00:21:18 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-11-09 00:21:18 +0100 |
| commit | cfeb75954a0fcf51acc2d33599e01e153a3570db (patch) | |
| tree | 04534d7be5d4d1f9eb14045454c6498c4efeacd9 | |
| parent | e722af7522bd4e7625b876f6c7a3525e89d96e7c (diff) | |
http: Add informative output.
* guix/build/http.scm (http-fetch): Emit message indicating the
download.
| -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) |