diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-04 00:08:30 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-04 00:12:19 +0100 |
| commit | 32728adb958560268b793b4a3e48d94111b5ed2d (patch) | |
| tree | f8b4c986e578cbe3a68a20e69ae37eb19db5a3ae | |
| parent | d1cb7e9562a1b645fcd374067b4f98577fea3723 (diff) | |
| download | guix-32728adb958560268b793b4a3e48d94111b5ed2d.tar.gz guix-32728adb958560268b793b4a3e48d94111b5ed2d.zip | |
import: pypi: Make downloads silent.
* guix/import/pypi.scm (pypi-fetch): Wrap body in
'call-with-output-file' and 'with-error-to-port'.
| -rw-r--r-- | guix/import/pypi.scm | 9 |
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." |