From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 28 Oct 2002 10:48:01 +0000 (+0000)
Subject: - cicParser interface simplified
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=448d93205b37c75e7a652edbd40b4857b840f9e4;p=helm.git

- cicParser interface simplified
---

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml
index 58a8f4197..de5c1926e 100644
--- a/helm/ocaml/cic_annotations_cache/cicCache.ml
+++ b/helm/ocaml/cic_annotations_cache/cicCache.ml
@@ -45,7 +45,7 @@ let get_annobj uri =
     | Some bodyuri ->
        Some (G.getxml (U.cicuri_of_uri bodyuri))
   in
-   let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename uri in
+   let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename in
     annobj,
      if U.uri_is_annuri uri then
       begin
diff --git a/helm/ocaml/cic_cache/cicCache.ml b/helm/ocaml/cic_cache/cicCache.ml
index 71fc4e638..1080c39e7 100644
--- a/helm/ocaml/cic_cache/cicCache.ml
+++ b/helm/ocaml/cic_cache/cicCache.ml
@@ -41,10 +41,10 @@ let get_annobj uri =
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
    match (U.bodyuri_of_uri uri) with
       None ->
-        CicParser.annobj_of_xml cicfilename None uri
+        CicParser.annobj_of_xml cicfilename None
     | Some bodyuri ->
        let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
-        CicParser.annobj_of_xml cicfilename (Some cicbodyfilename) uri
+        CicParser.annobj_of_xml cicfilename (Some cicbodyfilename)
 ;;
 
 let get_obj uri =
@@ -53,8 +53,8 @@ let get_obj uri =
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
    match (U.bodyuri_of_uri uri) with
       None ->
-        CicParser.obj_of_xml cicfilename None uri
+        CicParser.obj_of_xml cicfilename None
     | Some bodyuri ->
        let cicbodyfilename = G.getxml (U.cicuri_of_uri bodyuri) in
-        CicParser.obj_of_xml cicfilename (Some cicbodyfilename) uri
+        CicParser.obj_of_xml cicfilename (Some cicbodyfilename)
 ;;