http-client: 'http-fetch' converts strings to URIs.
* guix/http-client.scm (http-fetch): Use 'string->uri' if URI is a
string. Fixes a regression introduced in 8a5063f
.
This commit is contained in:
parent
841cb43c6b
commit
25d188ce12
|
@ -207,7 +207,9 @@ textual. Follow any HTTP redirection. When BUFFERED? is #f, return an
|
|||
unbuffered port, suitable for use in `filtered-port'.
|
||||
|
||||
Raise an '&http-get-error' condition if downloading fails."
|
||||
(let loop ((uri uri))
|
||||
(let loop ((uri (if (string? uri)
|
||||
(string->uri uri)
|
||||
uri)))
|
||||
(let ((port (or port (open-connection-for-uri uri))))
|
||||
(unless buffered?
|
||||
(setvbuf port _IONBF))
|
||||
|
|
Loading…
Reference in New Issue