let
channel_of_file file =
channel_of_source (
XmlParser
.
SFile
file)