module Five_versions: functor (
Versions
:
Pre_versions
) ->
functor (
T
:
T
) ->
functor (
V1
:
T_bin
) ->
functor (
V2
:
T_bin
) ->
functor (
V3
:
T_bin
) ->
functor (
V4
:
T_bin
) ->
functor (
V5
:
T_bin
) ->
functor (
V1_cvt
:
V(V1)(T).S
) ->
functor (
V2_cvt
:
V(V2)(T).S
) ->
functor (
V3_cvt
:
V(V3)(T).S
) ->
functor (
V4_cvt
:
V(V4)(T).S
) ->
functor (
V5_cvt
:
V(V5)(T).S
) ->
Make_datumable5
(
sig
include Versions
val test_version : Versioned_typed_tcp.Version.t
end
)
(
T
)
(
V1
)
(
V2
)
(
V3
)
(
V4
)
(
V5
)
(
V1_cvt
)
(
V2_cvt
)
(
V3_cvt
)
(
V4_cvt
)
(
V5_cvt
)
type
datum = t
include Versions
val lookup_marshal_fun : Versioned_typed_tcp.Version.t ->
(Versioned_typed_tcp.Datumable_of_binable.T.t ->
Core.Std.Bigsubstring.t option, exn)
Core.Std.Result.t
val lookup_unmarshal_fun : Versioned_typed_tcp.Version.t ->
(Core.Std.Bigsubstring.t ->
Versioned_typed_tcp.Datumable_of_binable.T.t option, exn)
Core.Std.Result.t