~ruther/guix-local: http-client: 'http-fetch' converts strings to URIs.

25d188ce12e4e192e4167d03728a8ff69fe0bb35 — Ludovic Courtès 10 years ago 841cb43

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M guix/http-client.scm

M guix/http-client.scm => guix/http-client.scm +3 -1

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