Browse Source

http-client: 'http-fetch' and 'http-fetch/cached' support HTTPS.

* guix/http-client.scm (http-fetch): Use 'open-connection-for-uri', to
support HTTPS.
gn-latest-20200428
Ludovic Courtès 6 years ago
parent
commit
8a5063f777
  1. 5
      guix/http-client.scm

5
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)

Loading…
Cancel
Save