http-client: Send redirection messages to stderr.
* guix/http-client.scm (http-fetch): Use CURRENT-ERROR-PORT instead of default output.
This commit is contained in:
parent
b3884bbfc5
commit
9572d2b482
|
@ -114,7 +114,7 @@ Raise an '&http-get-error' condition if downloading fails."
|
||||||
308) ; permanent redirection
|
308) ; permanent redirection
|
||||||
(let ((uri (resolve-uri-reference (response-location resp) uri)))
|
(let ((uri (resolve-uri-reference (response-location resp) uri)))
|
||||||
(close-port port)
|
(close-port port)
|
||||||
(format #t (G_ "following redirection to `~a'...~%")
|
(format (current-error-port) (G_ "following redirection to `~a'...~%")
|
||||||
(uri->string uri))
|
(uri->string uri))
|
||||||
(loop uri)))
|
(loop uri)))
|
||||||
(else
|
(else
|
||||||
|
|
Loading…
Reference in New Issue