02/07: http-client: Send redirection messages to stderr.

[Marius Bakke]

mbakke pushed a commit to branch master
in repository guix.

commit 9572d2b4820c7d916613f2e0031c892a71f5a966
Author: Marius Bakke <address@hidden>
Date:   Thu May 10 16:16:00 2018 +0200

    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(-)

diff --git a/guix/http-client.scm b/guix/http-client.scm
index e8a2a23..3b34d4f 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