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

@@ -114,7 +114,7 @@ (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
             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