ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 20:49:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

http: Add informative output.

Browse source 
* 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 @@ (define addresses
(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)