1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
let pp_of_to_string to_string fmt x =
Format.pp_print_string fmt (to_string x)
module Z = struct
type t = Z.t
[@@deriving eq,ord]
let show = Z.to_string
let pp = pp_of_to_string show
end
module Cstruct = struct
type t = Cstruct.t
[@@deriving eq,ord]
let to_hex_string cs =
let `Hex hs = Hex.of_cstruct cs in
hs
let show = to_hex_string
let pp = pp_of_to_string show
end
module Asn_oid = struct
type t = Asn.OID.t
[@@deriving eq,ord,show]
end