From 25d188ce12e4e192e4167d03728a8ff69fe0bb35 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 29 Nov 2015 17:46:11 +0100 Subject: 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. --- guix/http-client.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'guix/http-client.scm') diff --git a/guix/http-client.scm b/guix/http-client.scm index aa873a4353..eb2c3f4d5f 100644 --- a/guix/http-client.scm +++ b/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)) -- cgit v1.2.3