1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type nonrec configuration = Find_common.configuration = {
stateless: bool;
mutable multi_ack: [ `None | `Some | `Detailed ];
no_done: bool;
}
type nonrec 'uid hex = 'uid Find_common.hex = {
to_hex: 'uid -> string;
of_hex: string -> 'uid;
compare: 'uid -> 'uid -> int;
}
type negotiator = Default.t
let make ~compare = Default.make ~compare
let find_common = Find_common.find_common
let tips = Find_common.tips