swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-10-13 07:02:03 +02:00
parent 3fd73545d5
commit a9c8847ab2
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
include/parse_config.ml
View file

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