try
ignore (Http_user_agent.head url);
true
- with Http_user_agent.Http_error _ -> false
+ with
+ Http_user_agent.Http_error _ -> false
+ | Not_found -> prerr_endline "An object has metadata but no XML. This is an internal bug of ocaml-http: Zack, please fix it!"; assert false