summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-11-09 00:21:18 +0100
committerLudovic Courtès <ludo@gnu.org>2012-11-09 00:21:18 +0100
commitcfeb75954a0fcf51acc2d33599e01e153a3570db (patch)
tree04534d7be5d4d1f9eb14045454c6498c4efeacd9
parente722af7522bd4e7625b876f6c7a3525e89d96e7c (diff)
http: Add informative output.
* guix/build/http.scm (http-fetch): Emit message indicating the download.
-rw-r--r--guix/build/http.scm3
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)