diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-07 19:42:14 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-22 20:43:10 +0000 |
| commit | f50b501a7472f4f237023831aa415a948115d1d1 (patch) | |
| tree | 32c5429859141d4b2a93a16b7311995ca5aab06a | |
| parent | 205833b72c5517915a47a50dbe28e7024dc74e57 (diff) | |
| download | guix-f50b501a7472f4f237023831aa415a948115d1d1.tar.gz guix-f50b501a7472f4f237023831aa415a948115d1d1.zip | |
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) |