Fixed a bug in deep_eq: we generated new clauses but neglected the

[helm.git] / helm / software / components / getter / http_getter_wget.ml

diff --git a/helm/software/components/getter/http_getter_wget.ml b/helm/software/components/getter/http_getter_wget.ml
index 2052e7bd50953cc32879232f569ce4a1107f8ead..571479d78e1c949ff569fb202a1a45d96f4428c4 100644 (file)
--- a/helm/software/components/getter/http_getter_wget.ml
+++ b/helm/software/components/getter/http_getter_wget.ml
@@ -66,5 +66,8 @@ 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 (Printf.sprintf "An object %s has metadata but no XML. This is an internal bug of ocaml-http: Zack, please fix it!" 
+                  url); assert false