functor
(
Xml
:
Xml_sigs
.
T
)
->
sig
module
type
T
=
MakeWrapped
(
Xml_wrap
.
NoWrap
)(
Xml
).
T
end