blob: ba89de75d9e987d5529ecc854ff2e8c75eb805ea (
plain) (
tree)
|
|
module type TLS_UTILS =
sig
type authenticator = X509_lwt.authenticator Lwt.t
val null_auth : authenticator
val ca : Lwt_io.file_name -> authenticator
val self_sign : ?bits:int -> ?days:int
-> X509.Distinguished_name.t
-> (Tls.Config.certchain, string) result
end
module TlsUtils : TLS_UTILS
|