summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-04 00:08:30 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-04 00:12:19 +0100
commit32728adb958560268b793b4a3e48d94111b5ed2d (patch)
treef8b4c986e578cbe3a68a20e69ae37eb19db5a3ae /guix/import
parentd1cb7e9562a1b645fcd374067b4f98577fea3723 (diff)
import: pypi: Make downloads silent.
* guix/import/pypi.scm (pypi-fetch): Wrap body in 'call-with-output-file' and 'with-error-to-port'.
Diffstat (limited to 'guix/import')
-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."