let xml = "style-configuration.xml" in
let tmp_xml = Configuration.tmp_dir ^ "/" ^ xml in
let request_xml = Configuration.getter_url ^ "getstyleconf?uri=" ^ xml in
- Getter.raw_get request_xml tmp_xml ;
+ ClientHTTP.get_and_save request_xml tmp_xml ;
tmp_xml
exception Warnings;;