aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-29 17:46:11 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-29 17:46:11 +0100
commit25d188ce12e4e192e4167d03728a8ff69fe0bb35 (patch)
treec5f1805518b408d5045200a763bf9c7b8e4debf2
parent841cb43c6b4b7cb6ce328962368c583bc5fdc114 (diff)
downloadguix-25d188ce12e4e192e4167d03728a8ff69fe0bb35.tar
guix-25d188ce12e4e192e4167d03728a8ff69fe0bb35.tar.gz
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.
-rw-r--r--guix/http-client.scm4
1 files changed, 3 insertions, 1 deletions
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))