http-client: Send redirection messages to stderr.

* guix/http-client.scm (http-fetch): Use CURRENT-ERROR-PORT instead of default output.
2018-05-10 16:16:00 +02:00 · 2018-05-10 16:16:00 +02:00 · 9572d2b482
commit 9572d2b482
parent b3884bbfc5
1 changed files with 1 additions and 1 deletions
--- 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