Request (tls-async.Tls_async.X509

type t = X509.OCSP.Request.t

val pp : t Fmt.t

val validate : 
  t ->
  ?allowed_hashes:Digestif.hash' list ->
  X509.Public_key.t ->
  (unit,
    [> `Bad_encoding of X509.Distinguished_name.t * string * string
    | `Bad_signature of X509.Distinguished_name.t * string
    | `Hash_not_allowed of
      X509.Distinguished_name.t
      * [ `MD5 | `SHA1 | `SHA224 | `SHA256 | `SHA384 | `SHA512 ]
    | `Msg of string
    | `No_signature
    | `Unsupported_algorithm of X509.Distinguished_name.t * string
    | `Unsupported_keytype of X509.Distinguished_name.t * X509.Public_key.t ])
    Stdlib.result

val requestor_name : t -> X509.General_name.b option

val cert_ids : t -> X509.OCSP.cert_id list

val encode_der : t -> string

val create : 
  ?certs:Certificate.t list ->
  ?digest:Digestif.hash' ->
  ?requestor_name:General_name.b ->
  ?key:Private_key.t ->
  cert_id list ->
  t Core.Or_error.t

val decode_der : contents:string -> t Core.Or_error.t