sig
type credentials = [ `Anonymous | `X509 of Netx509.x509_certificate ]
type raw_credentials = [ `Anonymous | `X509 of string ]
type cred_type = [ `Anonymous | `X509 ]
class type tls_session_props =
object
method addressed_server : string option
method cipher_algo : string
method cipher_suite_type : string
method compression_algo : string
method endpoint_credentials : Nettls_support.credentials
method endpoint_credentials_raw : Nettls_support.raw_credentials
method endpoint_credentials_type : Nettls_support.cred_type
method id : string
method kx_algo : string
method mac_algo : string
method peer_credentials : Nettls_support.credentials
method peer_credentials_raw : Nettls_support.raw_credentials
method peer_credentials_type : Nettls_support.cred_type
method protocol : string
end
val get_tls_session_props :
Netsys_crypto_types.tls_endpoint -> Nettls_support.tls_session_props
val get_tls_user_name : Nettls_support.tls_session_props -> string
val squash_file_tls_endpoint :
(module Netsys_crypto_types.FILE_TLS_ENDPOINT) ->
(module Netsys_crypto_types.TLS_ENDPOINT)
val is_endpoint_host : string -> Nettls_support.tls_session_props -> bool
end