X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FgTopLevel.ml;h=ba334ac036908b166c779037acbda0be2bb443b5;hb=cd9181526a9d57eadeb4e7c1f6b7b440946fd432;hp=08e6e539aa7c1eb9922c0562cb66386a4c8fb2a2;hpb=eec68b7deed5396df14bd251127a96c46a868d06;p=helm.git

diff --git a/helm/gTopLevel/gTopLevel.ml b/helm/gTopLevel/gTopLevel.ml
index 08e6e539a..ba334ac03 100644
--- a/helm/gTopLevel/gTopLevel.ml
+++ b/helm/gTopLevel/gTopLevel.ml
@@ -398,14 +398,14 @@ let
    let innertypesuri = UriManager.innertypesuri_of_uri uri in
     Xml.pp ~quiet:true xmlinnertypes (Some (path ^ ".types.xml")) ;
     Http_getter.register' innertypesuri
-     (Helm_registry.get "annotations.url" ^
+     (Helm_registry.get "local_library.url" ^
        Str.replace_first (Str.regexp "^cic:") ""
         (UriManager.string_of_uri innertypesuri) ^ ".xml"
      ) ;
     (* constant type / variable / mutual inductive types definition *)
     Xml.pp ~quiet:true xml (Some (path ^ ".xml")) ;
     Http_getter.register' uri
-     (Helm_registry.get "annotations.url" ^
+     (Helm_registry.get "local_library.url" ^
        Str.replace_first (Str.regexp "^cic:") ""
         (UriManager.string_of_uri uri) ^ ".xml"
      ) ;
@@ -420,7 +420,7 @@ let
         in
          Xml.pp ~quiet:true bodyxml' (Some (path ^ ".body.xml")) ;
          Http_getter.register' bodyuri
-          (Helm_registry.get "annotations.url" ^
+          (Helm_registry.get "local_library.url" ^
             Str.replace_first (Str.regexp "^cic:") ""
              (UriManager.string_of_uri bodyuri) ^ ".xml"
           )
@@ -433,7 +433,7 @@ exception OpenConjecturesStillThere;;
 exception WrongProof;;
 
 let pathname_of_annuri uristring =
- Helm_registry.get "annotations.dir" ^    
+ Helm_registry.get "local_library.dir" ^    
   Str.replace_first (Str.regexp "^cic:") "" uristring
 ;;