]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/cic_proof_checking/cicEnvironment.ml
maxipatch for support of multiple DBs.
[helm.git] / helm / software / components / cic_proof_checking / cicEnvironment.ml
index e64370bf106af8f747ca2bd58088da7685acd2e4..8ae5c1b13c1a80a0cc9c974a05b71f8ccda6f49b 100644 (file)
@@ -366,7 +366,7 @@ let get_object_to_add uri =
     match UriManager.bodyuri_of_uri uri with
        None -> None
     |  Some bodyuri ->
-        if Http_getter.exists' bodyuri then
+        if Http_getter.exists' ~local:false bodyuri then
           Some (Http_getter.getxml' bodyuri)
         else
           None
@@ -527,7 +527,7 @@ let in_cache uri =
 let add_type_checked_obj uri (obj,ugraph,univlist) =
  Cache.add_cooked ~key:uri (obj,ugraph,univlist)
 
-let in_library uri = in_cache uri || Http_getter.exists' uri
+let in_library uri = in_cache uri || Http_getter.exists' ~local:false uri
 
 let remove_obj = Cache.remove