@@ -11,13 +11,9 @@ let iterator =
1111 let {Message . id, defaultMessage} = message;
1212 switch (messages^ |> StringMap . find_opt(id)) {
1313 | None => messages := messages^ |> StringMap . add(id, message)
14- | Some (existingMessage )
15- when
16- duplicatesAreAllowed^ && defaultMessage == existingMessage. defaultMessage =>
14+ | Some (existingMessage ) when duplicatesAreAllowed^ && defaultMessage == existingMessage. defaultMessage =>
1715 messages := messages^ |> StringMap . add(id, message)
18- | Some (existingMessage )
19- when
20- duplicatesAreAllowed^ && defaultMessage != existingMessage. defaultMessage =>
16+ | Some (existingMessage ) when duplicatesAreAllowed^ && defaultMessage != existingMessage. defaultMessage =>
2117 Printf . eprintf("Error: duplicate message id: % s with different default messages\n " , id);
2218 exit(3 );
2319 | Some (_ ) =>
@@ -37,7 +33,7 @@ let processReasonFile = path => {
3733};
3834
3935let rec processPath = path => {
40- if (! Sys . file_exists(path)) {
36+ if (! Sys . file_exists(path)) {
4137 Printf . eprintf("Error: file or directory does not exist: % s \n " , path);
4238 exit(1 );
4339 };
@@ -70,13 +66,15 @@ let showVersion = () => {
7066 exit(0 );
7167};
7268
73- let allowDuplicates = () => {
74- duplicatesAreAllowed := true ;
75- }
69+ let allowDuplicates = () => duplicatesAreAllowed := true ;
7670
7771let args = [
7872 ("-v" , Arg . Unit (showVersion), "shows the program version" ),
79- ("--allow-duplicates" , Arg . Unit (allowDuplicates), "allows entities with identical `id` props if `defaultMessage` props are identical as well" ),
73+ (
74+ "--allow-duplicates" ,
75+ Arg . Unit (allowDuplicates),
76+ "allows entities with identical `id` props if `defaultMessage` props are identical as well" ,
77+ ),
8078] ;
8179
8280let usage = "Usage: " ++ Sys . argv[ 0 ] ++ " [path...]" ;
0 commit comments