aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/import/pypi.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/guix/import/pypi.scm b/guix/import/pypi.scm
index f58efd9915..7ca0cc991e 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."