aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Bakke <mbakke@fastmail.com>2018-05-10 16:16:00 +0200
committerMarius Bakke <mbakke@fastmail.com>2018-05-26 17:04:17 +0200
commit9572d2b4820c7d916613f2e0031c892a71f5a966 (patch)
tree70294e9f544b5879ac4cfdfd97410c87aaaddd54
parentb3884bbfc5c2d137b78d3f0ae87ec82c9be377bf (diff)
downloadguix-9572d2b4820c7d916613f2e0031c892a71f5a966.tar
guix-9572d2b4820c7d916613f2e0031c892a71f5a966.tar.gz
http-client: Send redirection messages to stderr.
* guix/http-client.scm (http-fetch): Use CURRENT-ERROR-PORT instead of default output.
-rw-r--r--guix/http-client.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm
index e8a2a23fc5..3b34d4ffba 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -114,7 +114,7 @@ Raise an '&http-get-error' condition if downloading fails."
308) ; permanent redirection
(let ((uri (resolve-uri-reference (response-location resp) uri)))
(close-port port)
- (format #t (G_ "following redirection to `~a'...~%")
+ (format (current-error-port) (G_ "following redirection to `~a'...~%")
(uri->string uri))
(loop uri)))
(else