Authenticator (tls-async.Tls_async.X509

type t =
  ?ip:Ipaddr.t ->
  host:[ `host ] Domain_name.t option ->
  X509.Certificate.t list ->
  X509.Validation.r

val chain_of_trust : 
  time:(unit -> Ptime.t option) ->
  ?crls:X509.CRL.t list ->
  ?allowed_hashes:Digestif.hash' list ->
  X509.Certificate.t list ->
  t

val key_fingerprint : 
  time:(unit -> Ptime.t option) ->
  hash:Digestif.hash' ->
  fingerprint:string ->
  t

val cert_fingerprint : 
  time:(unit -> Ptime.t option) ->
  hash:Digestif.hash' ->
  fingerprint:string ->
  t

val of_string : 
  string ->
  ((unit -> Ptime.t option) -> t, [> `Msg of string ]) Stdlib.result

module Param : sig ... end