]> matita.cs.unibo.it Git - helm.git/commitdiff
added comment for zack
authorEnrico Tassi <enrico.tassi@inria.fr>
Mon, 26 May 2008 10:43:31 +0000 (10:43 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Mon, 26 May 2008 10:43:31 +0000 (10:43 +0000)
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