bugfix: top level keys now should work

[helm.git] / helm / gTopLevel / gTopLevel.ml

diff --git a/helm/gTopLevel/gTopLevel.ml b/helm/gTopLevel/gTopLevel.ml
index 08e6e539aa7c1eb9922c0562cb66386a4c8fb2a2..ba334ac036908b166c779037acbda0be2bb443b5 100644 (file)
--- 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
 ;;