diff options
Diffstat (limited to 'gemini/geminiTransaction.ml')
| -rw-r--r-- | gemini/geminiTransaction.ml | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/gemini/geminiTransaction.ml b/gemini/geminiTransaction.ml index 4752b2d..27208b7 100644 --- a/gemini/geminiTransaction.ml +++ b/gemini/geminiTransaction.ml @@ -228,21 +228,18 @@ struct let response_of_string = Angstrom.parse_string ~consume:All response_parser let transaction r = - let resolver = - let service : Resolver_lwt.service_fn = function - | "gemini" -> Lwt.return (Some ({ name = "gemini"; - port = 1965; - tls = true } : Resolver.service)) - | s -> Resolver_lwt_unix.system_service s in - let rewrites = [("", Resolver_lwt_unix.system_resolver)] in - Resolver_lwt.init ~service ~rewrites () in + let open Angstrom_lwt_unix in + let host = Base.Option.value_exn (Uri.host r.url) + ~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 try%lwt - let%lwt ctx = Conduit_lwt_unix.init () in - let%lwt endp = Resolver_lwt.resolve_uri ~uri:r.url resolver in - let%lwt client = Conduit_lwt_unix.endp_to_client ~ctx endp in - let%lwt (_flow, ic, oc) = Conduit_lwt_unix.connect ~ctx client in + let%lwt (ic, oc) = Tls_lwt.connect_ext + Tls.Config.(client ~peer_name:host ~authenticator + ~ciphers:Ciphers.default ()) (host, port) in let%lwt () = Lwt_io.write oc (Uri.to_string r.url ^ "\r\n") in - let%lwt (_, parsed) = Angstrom_lwt_unix.parse response_parser ic in + let%lwt (_, parsed) = parse response_parser ic in Lwt.return parsed with | Tls_lwt.Tls_alert alert -> |