let channel_of_file file =
  channel_of_source (XmlParser.SFile file)