let channel_of_channel ch =
  channel_of_source (XmlParser.SChannel ch)