X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fgetter%2Fhttp_getter.ml;h=3f5cb2e5cf770d6026e32cd458ffaa2062a2cd29;hb=36243ef64310a9ea2e51a0295744ab5de7abe055;hp=d2993575a439f3770ffb35c4caab5745dd3c5dea;hpb=5cb95a2e44f979183a8c3e39baa3b4e7cfaf8182;p=helm.git

diff --git a/components/getter/http_getter.ml b/components/getter/http_getter.ml
index d2993575a..3f5cb2e5c 100644
--- a/components/getter/http_getter.ml
+++ b/components/getter/http_getter.ml
@@ -151,13 +151,21 @@ let exists uri =
    let uri = deref_index_theory uri in
     Http_getter_storage.exists (uri ^ xml_suffix)
 	
+let is_an_obj s = 
+  try 
+    s <> UriManager.buri_of_uri (UriManager.uri_of_string s)
+  with UriManager.IllFormedUri _ -> true
+    
 let resolve ~writable uri =
   if remote () then
     resolve_remote ~writable uri
   else
    let uri = deref_index_theory uri in
     try
-      Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      if is_an_obj uri then
+        Http_getter_storage.resolve ~writable (uri ^ xml_suffix)
+      else
+        Http_getter_storage.resolve ~writable uri
     with Http_getter_storage.Resource_not_found _ -> raise (Key_not_found uri)
 
 let filename ~writable uri =