From 9572d2b4820c7d916613f2e0031c892a71f5a966 Mon Sep 17 00:00:00 2001
From: Marius Bakke <mbakke@fastmail.com>
Date: Thu, 10 May 2018 16:16:00 +0200
Subject: http-client: Send redirection messages to stderr.

* guix/http-client.scm (http-fetch): Use CURRENT-ERROR-PORT instead of default
output.
---
 guix/http-client.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix')

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
-- 
cgit v1.2.3