From aae2693a885158f11b348483e2bb66b38e5ac5ec Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
Date: Fri, 12 Jun 2020 22:23:19 -0400
Subject: Use tlsutils to connect

---
 gemini/geminiTransaction.ml | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'gemini/geminiTransaction.ml')

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
-- 
cgit v1.2.3