sig
type ('name, 'data) t = {
from : 'name;
ip : string;
time_received : Core.Std.Time.t;
time_sent : Core.Std.Time.t;
data : 'data;
}
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.Read_result.t -> int
val bin_write_t_ :
('a ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr ->
'b -> Bin_prot.Unsafe_common.sptr) ->
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr -> 'c -> 'd) ->
'a ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr ->
('b, 'c) Versioned_typed_tcp.Read_result.t -> 'd
val bin_write_t :
(Core.Std.Bin_prot.Unsafe_common.sptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr ->
'a -> Bin_prot.Unsafe_common.sptr) ->
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr ->
Core_kernel.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.Read_result.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.Read_result.t
Core.Std.Bin_prot.Type_class.writer
val bin_read_t__ : 'a -> 'b -> 'c -> 'd -> 'e -> 'f
val bin_read_t_ :
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr_ptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr -> 'a) ->
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr_ptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr -> 'b) ->
Core_kernel.Std.Bin_prot.Unsafe_common.sptr_ptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr ->
('a, 'b) Versioned_typed_tcp.Read_result.t
val bin_read_t :
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr_ptr ->
Core_kernel.Std.Bin_prot.Unsafe_common.eptr -> 'name) ->
(Core_kernel.Std.Bin_prot.Unsafe_common.sptr_ptr ->
Core_kernel.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.Read_result.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.Read_result.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.Read_result.t Core.Std.Bin_prot.Type_class.t
end