http: Add informative output.

* guix/build/http.scm (http-fetch): Emit message indicating the
  download.
This commit is contained in:
Ludovic Courtès 2012-11-09 00:21:18 +01:00
parent e722af7522
commit cfeb75954a
1 changed files with 3 additions and 0 deletions

View File

@ -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)