~ruther/guix-local: import: pypi: Make downloads silent.

32728adb958560268b793b4a3e48d94111b5ed2d — Ludovic Courtès 10 years ago d1cb7e9

import: pypi: Make downloads silent.

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

patch browse .tar.gz

1 files changed, 8 insertions(+), 1 deletions(-)

M guix/import/pypi.scm

M guix/import/pypi.scm => guix/import/pypi.scm +8 -1

@@ 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."