http-client: 'http-fetch' and 'http-fetch/cached' support HTTPS.
* guix/http-client.scm (http-fetch): Use 'open-connection-for-uri', to support HTTPS.
This commit is contained in:
parent
d8c66da7c1
commit
8a5063f777
@ -35,7 +35,8 @@
|
|||||||
#:use-module ((guix build utils)
|
#:use-module ((guix build utils)
|
||||||
#:select (mkdir-p dump-port))
|
#:select (mkdir-p dump-port))
|
||||||
#:use-module ((guix build download)
|
#: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)
|
#:re-export (open-socket-for-uri)
|
||||||
#:export (&http-get-error
|
#:export (&http-get-error
|
||||||
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."
|
Raise an '&http-get-error' condition if downloading fails."
|
||||||
(let loop ((uri uri))
|
(let loop ((uri uri))
|
||||||
(let ((port (or port (open-socket-for-uri uri))))
|
(let ((port (or port (open-connection-for-uri uri))))
|
||||||
(unless buffered?
|
(unless buffered?
|
||||||
(setvbuf port _IONBF))
|
(setvbuf port _IONBF))
|
||||||
(let*-values (((resp data)
|
(let*-values (((resp data)
|
||||||
|
Loading…
Reference in New Issue
Block a user