Source file `test_mode_protocol_intf.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
26
27
28
29
30
31
32
33
34
35
open! Core
open Async

module type S = sig
  type protocol_backend

  module Connection : T

  module Server : sig
    val serve
      :  authorize:Authorize.t
      -> principal:Principal.Name.t
      -> client_addr:Socket.Address.Inet.t
      -> protocol_backend
      -> Connection.t Protocol_intf.serve_res
  end

  module Client : sig
    val handshake
      :  authorize:Authorize.t
      -> principal:Principal.Name.t
      -> server_addr:Socket.Address.Inet.t
      -> protocol_backend
      -> (Connection.t * unit Or_error.t) Deferred.Or_error.t
  end
end

module type Test_mode_protocol = sig
  module type S = S

  module Make (Backend : Protocol_backend_intf.S) :
    S
    with type protocol_backend = Backend.t
     and type Connection.t = Protocol.Make(Backend).Connection.t
end