diff options
| author | Ryan Kavanagh <rak@rak.ac> | 2020-06-12 22:17:43 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@rak.ac> | 2020-06-12 22:17:43 -0400 |
| commit | 9e777332de4978e79bf90973595666419ace1c73 (patch) | |
| tree | 345ef4d87d921564c571e5c4f7342e47d6de1a99 /gemini/tlsUtils.mli | |
| parent | tls is fixed thanks to upstream (diff) | |
extended tlsUtils
Diffstat (limited to 'gemini/tlsUtils.mli')
| -rw-r--r-- | gemini/tlsUtils.mli | 5 |
1 files changed, 5 insertions, 0 deletions
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 |