]> matita.cs.unibo.it Git - helm.git/commitdiff
bugfix: top level keys now should work
authorStefano Zacchiroli <zack@upsilon.cc>
Mon, 16 Feb 2004 17:24:14 +0000 (17:24 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Mon, 16 Feb 2004 17:24:14 +0000 (17:24 +0000)
helm/ocaml/registry/helm_registry.ml

index 3c0a9d68844f0af1db2ba8b7107debe7f8dc4976..969644b01a2f381c6c28a55439c392cc26c045d8 100644 (file)
@@ -194,7 +194,11 @@ open Pxp_yacc
 let load_from_absolute =
   let config = default_config in
   let entry = `Entry_document [ `Extend_dtd_fully; `Parse_xml_decl ] in
-  let fold_key key_stack key = String.concat "." key_stack ^ "." ^ key in
+  let fold_key key_stack key =
+    match key_stack with
+    | [] -> key
+    | _ -> String.concat "." key_stack ^ "." ^ key
+  in
   fun fname ->
     debug_print ("Loading configuration from " ^ fname);
     let document =