Browse Source

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.
gn-latest-20200428
Ludovic Courtès 6 years ago
parent
commit
25d188ce12
  1. 4
      guix/http-client.scm

4
guix/http-client.scm

@ -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…
Cancel
Save