heal_header_name name;
heal_header_value name
-let url_of_string = url_of_string request_uri_syntax
+let url_of_string s =
+ try
+ url_of_string request_uri_syntax s
+ with Neturl.Malformed_URL -> raise (Malformed_URL s)
let string_of_url = Neturl.string_of_url