module MakeTransportChanSrc:
| Parameters: |
|
include DescriptorTypes
typemsg =Config.message
typereq =Config.request
include struct ... end
val init : 'a -> 'b -> unit lazy_tmodule type ToBoundedChannelSig =ToBoundedChannelSigwith type to_chan = dsc and type send_req = req
module Make: