sig
exception Type_mismatch
type encap
module type TYPE = sig type t end
module type ENCAP =
sig
type t
val wrap : Netplex_encap.ENCAP.t -> Netplex_encap.encap
val unwrap : Netplex_encap.encap -> Netplex_encap.ENCAP.t
end
module Make_encap :
functor (T : TYPE) ->
sig type t = T.t val wrap : t -> encap val unwrap : encap -> t end
end