include/parse_config.ml

@@ -74,8 +74,6 @@ let identifier =
   in
   take_while1 ident_char >>| String.lowercase_ascii
 
-(* --- Values --- *)
-
 let value =
   let unquoted_value =
     take_while1 (fun c -> not (is_whitespace c || is_eol c))
@@ -115,8 +113,6 @@ let parse_config s =
   | Ok v -> v
   | Error msg -> failwith msg
 
-(* --- pp --- *)
-
 let pp_item ppf { key; value } =
   let open Fmt in
   pf ppf "%s = %s" key value