include/parse_config.ml

@@ -38,6 +38,7 @@ let duration_value =
 
 let read_file file = In_channel.with_open_bin file In_channel.input_all
 
+module Untyped = struct
   type item = {
     key: string;
     value: string;
@@ -147,12 +148,13 @@ module Pp_debug = struct
       let open Fmt in
       pf ppf "%a" (list ~sep:(any "\n") pp_section) l
   end
+end
 
 let () =
   let content = read_file "default.config" in
   (*Fmt.pr "%s" content;*)
-  let config = parse content in
+  let config = Untyped.parse content in
   (*Fmt.pr "%a@." pp_lines config;*)
-  Fmt.pr "%a@." Pp_debug.pp_config config;
+  Fmt.pr "%a@." Untyped.Pp_debug.pp_config config;
 
   ()