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.Unsafe_common.sptr ->
         Core.Std.Bin_prot.Unsafe_common.eptr ->
         'a -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
        Core.Std.Bin_prot.Unsafe_common.sptr ->
        Core.Std.Bin_prot.Unsafe_common.eptr ->
        'a Versioned_typed_tcp.Client_msg.Control.t ->
        Core.Std.Bin_prot.Unsafe_common.sptr
      val bin_write_t :
        (Core.Std.Bin_prot.Unsafe_common.sptr ->
         Core.Std.Bin_prot.Unsafe_common.eptr ->
         'a -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
        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 -> 'c -> 'd -> 'e
      val bin_read_t_ :
        (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
         Core.Std.Bin_prot.Unsafe_common.eptr -> 'a) ->
        Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
        Core.Std.Bin_prot.Unsafe_common.eptr ->
        'a Versioned_typed_tcp.Client_msg.Control.t
      val bin_read_t :
        (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
         Core.Std.Bin_prot.Unsafe_common.eptr -> 'name) ->
        Core.Std.Bin_prot.Common.buf ->
        pos_ref:Core.Std.Bin_prot.Common.pos Pervasives.ref ->
        'name 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_ :
    (Core.Std.Bin_prot.Unsafe_common.sptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr ->
     'a -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
    (Bin_prot.Unsafe_common.sptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr ->
     'b -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
    Core.Std.Bin_prot.Unsafe_common.sptr ->
    Core.Std.Bin_prot.Unsafe_common.eptr ->
    ('a, 'b) Versioned_typed_tcp.Client_msg.t ->
    Core.Std.Bin_prot.Unsafe_common.sptr
  val bin_write_t :
    (Core.Std.Bin_prot.Unsafe_common.sptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr ->
     'a -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
    (Bin_prot.Unsafe_common.sptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr ->
     'b -> Core.Std.Bin_prot.Unsafe_common.sptr) ->
    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 -> 'd -> 'e -> 'f
  val bin_read_t_ :
    (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr -> 'a) ->
    (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr -> 'b) ->
    Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
    Core.Std.Bin_prot.Unsafe_common.eptr ->
    ('a, 'b) Versioned_typed_tcp.Client_msg.t
  val bin_read_t :
    (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr -> 'name) ->
    (Core.Std.Bin_prot.Unsafe_common.sptr_ptr ->
     Core.Std.Bin_prot.Unsafe_common.eptr -> 'data) ->
    Core.Std.Bin_prot.Common.buf ->
    pos_ref:Core.Std.Bin_prot.Common.pos Pervasives.ref ->
    ('name, 'data) 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