- external parse_xml_string : bool -> float -> string -> t = "caml_call_shredder_string"
- let parse_xml_string = parse_xml_string true 1.0
+ external parse_xml_string : string -> t = "caml_call_shredder_string"
+ let parse_xml_string uri = parse_xml_string uri