include/parse_config.ml

@@ -120,6 +120,7 @@ let parse s =
   | Error msg -> Fmt.failwith "config parse error: %s" msg
   | Ok v -> fold_sections v
 
+module Pp_debug = struct
   let pp_item ppf { key; value } =
     let open Fmt in
     match String.contains value '"' || String.contains value ' ' with
@@ -145,12 +146,13 @@ let pp_section ppf { header; items } =
   let pp_config ppf l =
     let open Fmt in
     pf ppf "%a" (list ~sep:(any "\n") pp_section) l
+end
 
 let () =
   let content = read_file "default.config" in
   (*Fmt.pr "%s" content;*)
   let config = parse content in
   (*Fmt.pr "%a@." pp_lines config;*)
-  Fmt.pr "%a@." pp_config config;
+  Fmt.pr "%a@." Pp_debug.pp_config config;
 
   ()