nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/build/http.scm
View File

@ -77,6 +77,9 @@ which is not available during bootstrap."
(define (http-fetch url file) (define (http-fetch url file)
"Fetch data from URL and write it to FILE. Return FILE on success." "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 ;; FIXME: Use a variant of `http-get' that returns a port instead of
;; loading everything in memory. ;; loading everything in memory.
(let*-values (((uri) (let*-values (((uri)