diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-07 19:42:14 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-22 19:53:44 +0000 |
| commit | 653d83e6fc1dfaf6b3acbbaf95e86f32cb44ed10 (patch) | |
| tree | f90f0b54ad1212967b907418ef848a4ce5d46cf9 | |
| parent | 4d53be03d77ee97241914c4a87ba158c8c0e40a1 (diff) | |
| download | guix-653d83e6fc1dfaf6b3acbbaf95e86f32cb44ed10.tar guix-653d83e6fc1dfaf6b3acbbaf95e86f32cb44ed10.tar.gz | |
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?.
| -rwxr-xr-x | guix/scripts/substitute.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index fc6bb54301..f01c11b020 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) |