(* TODO check this: old getter here used text/xml *)
return_file ~fname:url ~contype:"text/plain" ~patch_fun outchan
else
- return_html_error ("Can't find DTD: " ^ url) outchan
+ raise (Dtd_not_found url)
let clean () =
let module E = Http_getter_env in