Source file neg.ml

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