import: pypi: Make downloads silent.

* guix/import/pypi.scm (pypi-fetch): Wrap body in
  'call-with-output-file' and 'with-error-to-port'.

1 files changed, 8 insertions, 1 deletions

diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm
index f58efd99158..7ca0cc991e5 100644
--- a/guix/import/pypi.scm
+++ b/guix/import/pypi.scm
@@ -45,7 +45,14 @@
 (define (pypi-fetch name)
   "Return an alist representation of the PyPI metadata for the package NAME,
 or #f on failure."
-  (json-fetch (string-append "https://pypi.python.org/pypi/" name "/json")))
+  ;; 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-output-file "/dev/null"
+    (lambda (null)
+      (with-error-to-port null
+        (lambda ()
+          (json-fetch (string-append "https://pypi.python.org/pypi/"
+                                     name "/json")))))))
 
 (define (latest-source-release pypi-package)
   "Return the latest source release for PYPI-PACKAGE."