guix-commits
[Top][All Lists]
Advanced

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

06/14: substitute: open-connection-for-uri/maybe add #:verify-certificat


From: guix-commits
Subject: 06/14: substitute: open-connection-for-uri/maybe add #:verify-certificate?.
Date: Mon, 22 Feb 2021 15:44:45 -0500 (EST)

cbaines pushed a commit to branch master
in repository guix.

commit f50b501a7472f4f237023831aa415a948115d1d1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Jan 7 19:42:14 2021 +0000

    substitute: open-connection-for-uri/maybe add #:verify-certificate?.
    
    As this is used by http-fetch and http-multiple-get when they call the
    specified open connection procedure.
    
    * guix/scripts/substitute.scm (open-connection-for-uri/maybe): Support
     #:verify-certificate?.
---
 guix/scripts/substitute.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index fc6bb54..f01c11b 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -322,7 +322,8 @@ if file doesn't exist, and the narinfo otherwise."
 (define* (open-connection-for-uri/maybe uri
                                         #:key
                                         fresh?
-                                        (time %fetch-timeout))
+                                        (time %fetch-timeout)
+                                        verify-certificate?)
   "Open a connection to URI via 'open-connection-for-uri/cached' and return a
 port to it, or, if connection failed, print a warning and return #f.  Pass
 #:fresh? to 'open-connection-for-uri/cached'."
@@ -332,7 +333,8 @@ port to it, or, if connection failed, print a warning and 
return #f.  Pass
   (catch #t
     (lambda ()
       (open-connection-for-uri/cached uri #:timeout time
-                                      #:fresh? fresh?))
+                                      #:fresh? fresh?
+                                      #:verify-certificate? 
verify-certificate?))
     (match-lambda*
       (('getaddrinfo-error error)
        (unless (hash-ref %unreachable-hosts host)



reply via email to

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