[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Ludovic Courtès
Subject: 01/10: http-client: 'http-fetch' and 'http-fetch/cached' support HTTPS.
Date: Thu, 26 Nov 2015 17:02:09 +0000

civodul pushed a commit to branch tk-update
in repository guix.

commit bfa81326bacec10067571a255a48e91b3a774527
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 25 23:20:44 2015 +0100

    http-client: 'http-fetch' and 'http-fetch/cached' support HTTPS.
    * guix/http-client.scm (http-fetch): Use 'open-connection-for-uri', to
    support HTTPS.
 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 bee8cdc..aa873a4 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
@@ -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)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]