X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_annotations_cache%2FcicCache.ml;h=5da492f1130f239bda684670d389722755bbf3d7;hb=5325734bc2e4927ed7ec146e35a6f0f2b49f50c1;hp=0885397581690671e0f04ab6cb3e109e5846dc0e;hpb=dbc32b5c1cdca97e64d63f9877a0d3b6e1baeaa1;p=helm.git

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml
index 088539758..5da492f11 100644
--- a/helm/ocaml/cic_annotations_cache/cicCache.ml
+++ b/helm/ocaml/cic_annotations_cache/cicCache.ml
@@ -36,14 +36,12 @@
 (******************************************************************************)
 
 let get_annobj uri =
- let module G = Getter in
  let module U = UriManager in
-  let cicfilename = G.getxml (U.cicuri_of_uri uri) in
+  let cicfilename = Http_getter.getxml' (U.cicuri_of_uri uri) in
   let cicbodyfilename =
    match U.bodyuri_of_uri uri with
       None -> None
-    | Some bodyuri ->
-       Some (G.getxml (U.cicuri_of_uri bodyuri))
+    | Some bodyuri -> Some (Http_getter.getxml' (U.cicuri_of_uri bodyuri))
   in
    let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename in
     Unix.unlink cicfilename ;
@@ -51,7 +49,7 @@ let get_annobj uri =
     annobj,
      if U.uri_is_annuri uri then
       begin
-       let annfilename = G.getxml (U.annuri_of_uri uri) in
+       let annfilename = Http_getter.getxml' (U.annuri_of_uri uri) in
         let res =
          Some (CicAnnotationParser.get_annotations annfilename)
         in