diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-25 23:20:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-26 21:07:25 +0100 |
| commit | 8a5063f7774c225626224697b5548f2e953c6af4 (patch) | |
| tree | 06dfa7e1c1b912c397b7922fc246ba64f5c61e24 | |
| parent | d8c66da7c1566f0fb9156ebfe0f4108282fd4a10 (diff) | |
| download | patches-8a5063f7774c225626224697b5548f2e953c6af4.tar patches-8a5063f7774c225626224697b5548f2e953c6af4.tar.gz | |
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.scm | 5 |
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) |