nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* guix/http-client.scm (http-fetch): Use 'open-connection-for-uri', to
support HTTPS.
master
Ludovic Courtès 2015-11-25 23:20:44 +01:00
parent d8c66da7c1
commit 8a5063f777
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/http-client.scm
View File

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