sig
module Control :
sig
type 'name t =
Connecting
| Connect of 'name
| Disconnect of 'name * Core.Std.Sexp.t
| Parse_error of 'name * string
| Protocol_error of string
val bin_size_t :
('a -> int) -> 'a Versioned_typed_tcp.Client_msg.Control.t -> int
val bin_write_t :
(Core.Std.Bin_prot.Common.buf ->
pos:Core.Std.Bin_prot.Common.pos ->
'a -> Core.Std.Bin_prot.Common.pos) ->
Core.Std.Bin_prot.Common.buf ->
pos:Core.Std.Bin_prot.Common.pos ->
'a Versioned_typed_tcp.Client_msg.Control.t ->
Core.Std.Bin_prot.Common.pos
val bin_writer_t :
'a Core.Std.Bin_prot.Type_class.writer ->
'a Versioned_typed_tcp.Client_msg.Control.t
Core.Std.Bin_prot.Type_class.writer
val __bin_read_t__ :
'a ->
'b -> pos_ref:Core.Std.Bin_prot.Common.pos Pervasives.ref -> 'c -> 'd
val bin_read_t :
(Core.Std.Bin_prot.Common.buf ->
pos_ref:Core.Std.Bin_prot.Common.pos_ref -> 'a) ->
Core.Std.Bin_prot.Common.buf ->
pos_ref:Core.Std.Bin_prot.Common.pos_ref ->
'a Versioned_typed_tcp.Client_msg.Control.t
val bin_reader_t :
'a Core.Std.Bin_prot.Type_class.reader ->
'a Versioned_typed_tcp.Client_msg.Control.t
Core.Std.Bin_prot.Type_class.reader
val bin_t :
'a Core.Std.Bin_prot.Type_class.t ->
'a Versioned_typed_tcp.Client_msg.Control.t
Core.Std.Bin_prot.Type_class.t
val __t_of_sexp__ :
(Sexplib.Sexp.t -> 'name) -> Sexplib.Sexp.t -> 'name t
val t_of_sexp : (Sexplib.Sexp.t -> 'name) -> Sexplib.Sexp.t -> 'name t
val sexp_of_t : ('name -> Sexplib.Sexp.t) -> 'name t -> Sexplib.Sexp.t
end
type ('name, 'data) t =
Control of 'name Versioned_typed_tcp.Client_msg.Control.t
| Data of ('name, 'data) Versioned_typed_tcp.Read_result.t
val __t_of_sexp__ :
(Sexplib.Sexp.t -> 'name) ->
(Sexplib.Sexp.t -> 'data) -> Sexplib.Sexp.t -> ('name, 'data) t
val t_of_sexp :
(Sexplib.Sexp.t -> 'name) ->
(Sexplib.Sexp.t -> 'data) -> Sexplib.Sexp.t -> ('name, 'data) t
val sexp_of_t :
('name -> Sexplib.Sexp.t) ->
('data -> Sexplib.Sexp.t) -> ('name, 'data) t -> Sexplib.Sexp.t
val bin_size_t :
('a -> int) ->
('b -> int) -> ('a, 'b) Versioned_typed_tcp.Client_msg.t -> int
val bin_write_t :
(Bin_prot.Common.buf ->
pos:Core.Std.Bin_prot.Common.pos -> 'a -> Bin_prot.Common.pos) ->
(Bin_prot.Common.buf ->
pos:Core_kernel.Std.Bin_prot.Common.pos ->
'b -> Core.Std.Bin_prot.Common.pos) ->
Core.Std.Bin_prot.Common.buf ->
pos:Core.Std.Bin_prot.Common.pos ->
('a, 'b) Versioned_typed_tcp.Client_msg.t -> Core.Std.Bin_prot.Common.pos
val bin_writer_t :
'a Core.Std.Bin_prot.Type_class.writer ->
'b Core.Std.Bin_prot.Type_class.writer ->
('a, 'b) Versioned_typed_tcp.Client_msg.t
Core.Std.Bin_prot.Type_class.writer
val __bin_read_t__ :
'a ->
'b ->
'c -> pos_ref:Core.Std.Bin_prot.Common.pos Pervasives.ref -> 'd -> 'e
val bin_read_t :
(Bin_prot.Common.buf -> pos_ref:Bin_prot.Common.pos_ref -> 'a) ->
(Bin_prot.Common.buf -> pos_ref:Bin_prot.Common.pos_ref -> 'b) ->
Core.Std.Bin_prot.Common.buf ->
pos_ref:Core.Std.Bin_prot.Common.pos_ref ->
('a, 'b) Versioned_typed_tcp.Client_msg.t
val bin_reader_t :
'a Core.Std.Bin_prot.Type_class.reader ->
'b Core.Std.Bin_prot.Type_class.reader ->
('a, 'b) Versioned_typed_tcp.Client_msg.t
Core.Std.Bin_prot.Type_class.reader
val bin_t :
'a Core.Std.Bin_prot.Type_class.t ->
'b Core.Std.Bin_prot.Type_class.t ->
('a, 'b) Versioned_typed_tcp.Client_msg.t Core.Std.Bin_prot.Type_class.t
end