package git-kv

  1. Overview
  2. Docs

Source file neg.ml

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