if Filename.check_suffix !Config.input_file ".srx"
then
Utils.time
- ~msg:"Loading file"
+ ~msg:"Loading Index file"
(Tree.load
~sample:!Config.sample_factor
~load_text:(not !Config.disable_text_collection))
else
let v =
Utils.time
- ~msg:"Parsing document"
+ ~msg:"Loading XML file"
(Tree.parse_xml_uri)
!Config.input_file
in