3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

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:
Marius Bakke 2018-05-10 16:16:00 +02:00
parent b3884bbfc5
commit 9572d2b482
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -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