diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-05-10 16:16:00 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-05-26 17:04:17 +0200 |
| commit | 9572d2b4820c7d916613f2e0031c892a71f5a966 (patch) | |
| tree | 70294e9f544b5879ac4cfdfd97410c87aaaddd54 /guix/http-client.scm | |
| parent | b3884bbfc5c2d137b78d3f0ae87ec82c9be377bf (diff) | |
| download | gnu-guix-9572d2b4820c7d916613f2e0031c892a71f5a966.tar gnu-guix-9572d2b4820c7d916613f2e0031c892a71f5a966.tar.gz | |
http-client: Send redirection messages to stderr.
* guix/http-client.scm (http-fetch): Use CURRENT-ERROR-PORT instead of default
output.
Diffstat (limited to 'guix/http-client.scm')
| -rw-r--r-- | guix/http-client.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index e8a2a23fc5..3b34d4ffba 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 |