Source file `two_party_network.ml`

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
module Types = struct
  type provision_id
  type recipient_id
  type third_party_cap_id = [`Two_party_only]
  type join_key_part
end

module Address = struct
  type t

  let pp f _ = Fmt.string f "<two-party-address>"

  let to_uri _ = assert false
  let parse_uri _ = failwith "Can't use of_uri wih Two_party_network"

  let equal _ _ = assert false

  let digest _ = assert false
end

type t = unit

let parse_third_party_cap_id _ = `Two_party_only

let connect () ~switch:_ ~secret_key:_ _ = assert false