From c8156d1eb6c49d2bcf6bf932672854ec18feb1fb Mon Sep 17 00:00:00 2001 From: hhugo Date: Fri, 1 Nov 2024 22:17:54 +0100 Subject: [PATCH] fix formatting (#161) Thanks! --- src/generator/gen_unicode.ml | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/src/generator/gen_unicode.ml b/src/generator/gen_unicode.ml index a261227c..e09579a2 100644 --- a/src/generator/gen_unicode.ml +++ b/src/generator/gen_unicode.ml @@ -13,8 +13,7 @@ let parse_line l = let l = match String.index_opt l '#' with None -> l | Some i -> String.sub l 0 i in - String.split_on_char ';' l - |> List.map String.trim + String.split_on_char ';' l |> List.map String.trim let parse_code s = try int_of_string (Printf.sprintf "0x%s" s) @@ -92,11 +91,10 @@ let files = let interval = parse_interval interval in let prop = parse_prop prop in Hashtbl.add labels prop interval - | [_interval; ("InCB"); ("Extend"|"Consonant"|"Linker")] -> - (* TODO: support non-binary properties? *) - () - | _ -> - assert false); + | [_interval; "InCB"; ("Extend" | "Consonant" | "Linker")] -> + (* TODO: support non-binary properties? *) + () + | _ -> assert false ); ( "DerivedGeneralCategory.txt", fun s -> match parse_line s with