Base.3-Msg
type raw_msg
type raw_callback
val convert_callback : raw_callback -> BC.t
val convert : raw_msg -> Diff.t Network_peer.Envelope.Incoming.t