Source file `p11_gcm_params.ml`

1
2
3
4
5
6
7
8
9
10
11
12
type t =
  { iv: P11_hex_data.t
  ; aad: P11_hex_data.t
  ; tag_bits: P11_ulong.t
  }
[@@deriving eq,ord,make,show,yojson]

let iv x = x.iv

let aad x = x.aad

let tag_bits x = x.tag_bits