From: Eric Bavier <bav...@member.fsf.org>
* guix/import/hackage.scm (hackage-fetch): Send error output from
url-fetch to /dev/null.
---
guix/import/hackage.scm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/guix/import/hackage.scm b/guix/import/hackage.scm
index 8725ffa..9401830 100644
--- a/guix/import/hackage.scm
+++ b/guix/import/hackage.scm
@@ -82,9 +82,14 @@ version."
name "-" version "/" name ".cabal")
(string-append "http://hackage.haskell.org/package/";
name "/" name ".cabal"))))
+ ;; 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-temporary-output-file
(lambda (temp port)
- (and (url-fetch url temp)
+ (and (call-with-output-file "/dev/null"
+ (lambda (null)
+ (with-error-to-port null
+ (lambda () (url-fetch url temp)))))
(call-with-input-file temp
(compose read-cabal canonical-newline-port)))))))
--
2.7.3
