[PATCH 1/3] import: hackage: Silence download output.

[ericbavier]

From: Eric Bavier <address@hidden>

* guix/import/hackage.scm (hackage-fetch): Send error output from
  url-fetch to /dev/null.
---
 guix/import/hackage.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm
index 8725ffa..9401830 100644
--- a/guix/import/hackage.scm
+++ b/guix/import/hackage.scm
@@ -82,9 +82,14 @@ version."
                                     name "-" version "/" name ".cabal")
                      (string-append "http://hackage.haskell.org/package/";
                                     name "/" name ".cabal"))))
+    ;; XXX: We want to silence the download progress report, which is
+    ;; especially annoying for 'guix refresh', but we have to use a file port.
     (call-with-temporary-output-file
      (lambda (temp port)
-       (and (url-fetch url temp)
+       (and (call-with-output-file "/dev/null"
+              (lambda (null)
+                (with-error-to-port null
+                  (lambda () (url-fetch url temp)))))
             (call-with-input-file temp
               (compose read-cabal canonical-newline-port)))))))
 
-- 
2.7.3