]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/getter/http_getter_wget.ml
added comment for zack
[helm.git] / helm / software / components / getter / http_getter_wget.ml
index 2052e7bd50953cc32879232f569ce4a1107f8ead..90e60b4048dce55cfe76094f4a2877b41bc87727 100644 (file)
@@ -66,5 +66,7 @@ let exists url =
   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