diff options
Diffstat (limited to 'gemini/geminiTransaction.ml')
| -rw-r--r-- | gemini/geminiTransaction.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml index 27208b7..9f079af 100644 --- a/gemini/geminiTransaction.ml +++ b/gemini/geminiTransaction.ml @@ -233,11 +233,10 @@ struct ~message:"URL with no host?" in let port = Base.Option.value_exn (Uri.port r.url) ~message:"URL with no port?" in - let%lwt authenticator = r.authenticator in + let authenticator = r.authenticator in try%lwt - let%lwt (ic, oc) = Tls_lwt.connect_ext - Tls.Config.(client ~peer_name:host ~authenticator - ~ciphers:Ciphers.default ()) (host, port) in + let%lwt (ic, oc) = TlsUtils.TlsUtils.connect ~authenticator + ~peer_name:host (host, port) in let%lwt () = Lwt_io.write oc (Uri.to_string r.url ^ "\r\n") in let%lwt (_, parsed) = parse response_parser ic in Lwt.return parsed |