bugfix: top level keys now should work

[helm.git] / helm / ocaml / registry / helm_registry.ml

diff --git a/helm/ocaml/registry/helm_registry.ml b/helm/ocaml/registry/helm_registry.ml
index 3c0a9d68844f0af1db2ba8b7107debe7f8dc4976..969644b01a2f381c6c28a55439c392cc26c045d8 100644 (file)
--- a/helm/ocaml/registry/helm_registry.ml
+++ b/helm/ocaml/registry/helm_registry.ml
@@ -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 =