From cfeb75954a0fcf51acc2d33599e01e153a3570db Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 9 Nov 2012 00:21:18 +0100
Subject: http: Add informative output.

* guix/build/http.scm (http-fetch): Emit message indicating the
  download.
---
 guix/build/http.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'guix/build')

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)
-- 
cgit v1.2.3