summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-25 23:20:44 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-26 21:07:25 +0100
commit8a5063f7774c225626224697b5548f2e953c6af4 (patch)
tree06dfa7e1c1b912c397b7922fc246ba64f5c61e24
parentd8c66da7c1566f0fb9156ebfe0f4108282fd4a10 (diff)
http-client: 'http-fetch' and 'http-fetch/cached' support HTTPS.
* guix/http-client.scm (http-fetch): Use 'open-connection-for-uri', to support HTTPS.
-rw-r--r--guix/http-client.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm
index bee8cdc834..aa873a4353 100644
--- a/guix/http-client.scm
+++ b/guix/http-client.scm
@@ -35,7 +35,8 @@
#:use-module ((guix build utils)
#:select (mkdir-p dump-port))
#:use-module ((guix build download)
- #:select (open-socket-for-uri resolve-uri-reference))
+ #:select (open-socket-for-uri
+ open-connection-for-uri resolve-uri-reference))
#:re-export (open-socket-for-uri)
#:export (&http-get-error
http-get-error?
@@ -207,7 +208,7 @@ unbuffered port, suitable for use in `filtered-port'.
Raise an '&http-get-error' condition if downloading fails."
(let loop ((uri uri))
- (let ((port (or port (open-socket-for-uri uri))))
+ (let ((port (or port (open-connection-for-uri uri))))
(unless buffered?
(setvbuf port _IONBF))
(let*-values (((resp data)