From 9e777332de4978e79bf90973595666419ace1c73 Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Fri, 12 Jun 2020 22:17:43 -0400 Subject: extended tlsUtils --- gemini/tlsUtils.mli | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'gemini/tlsUtils.mli') diff --git a/gemini/tlsUtils.mli b/gemini/tlsUtils.mli index 35a674d..a0d89ff 100644 --- a/gemini/tlsUtils.mli +++ b/gemini/tlsUtils.mli @@ -2,6 +2,7 @@ module type TLS_UTILS = sig type authenticator = X509_lwt.authenticator Lwt.t type ciphers = Tls.Ciphersuite.ciphersuite list + type own_cert = Tls.Config.own_cert val null_auth : authenticator @@ -10,6 +11,10 @@ sig val self_sign : ?bits:int -> ?days:int -> X509.Distinguished_name.t -> (Tls.Config.certchain, string) result + + val connect : authenticator:authenticator -> ?peer_name:string -> + ?ciphers:ciphers -> ?own_cert:own_cert -> string * int + -> (Lwt_io.input_channel * Lwt_io.output_channel) Lwt.t end module TlsUtils : TLS_UTILS -- cgit v1.2.3