package pkcs11

  1. Overview
  2. Docs
package pkcs11
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file p11_rsa_pkcs_pss_params.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type t =
  { hashAlg: P11_mechanism_type.t
  ; mgf: P11_rsa_pkcs_mgf_type.t
  ; sLen: P11_ulong.t
  }
[@@deriving yojson]

let compare a b =
  let c = P11_mechanism_type.compare a.hashAlg b.hashAlg in
  if c <> 0 then
    c
  else
    let c = Unsigned.ULong.compare a.mgf b.mgf in
    if c <> 0 then
      c
    else
      Unsigned.ULong.compare a.sLen b.sLen