let
channel_of_channel ch =
channel_of_source (
XmlParser
.
SChannel
ch)