let xml_diff_of_files (path1 : string) (path2 : string) : string = let xml1 : Xml.xml = parse_file false path1 in let xml2 : Xml.xml = parse_file false path2 in xml_diff xml1 xml2