Formatting

Author: rolandpeelen

compiler/bsc/rescript_compiler_main.ml

@@ -293,7 +293,9 @@ let command_line_flags : (string * Bsc_args.spec * string) array =
       set Clflags.transparent_modules,
       "*internal*Do not record dependencies for module aliases" );
     ("-bs-gentype", set Clflags.bs_gentype, "*internal* Pass gentype command");
-    ("-bs-multi-entry", set Js_config.multi_entry, "*internal* Preserve lowercase file module names");
+    ( "-bs-multi-entry",
+      set Js_config.multi_entry,
+      "*internal* Preserve lowercase file module names" );
     (******************************************************************************)
     ( "-unboxed-types",
       set Clflags.unboxed_types,

compiler/core/js_implementation.ml

@@ -130,8 +130,7 @@ let after_parsing_impl ppf outputprefix (ast : Parsetree.structure) =
     if !Js_config.syntax_only then Warnings.check_fatal ()
     else
       let modulename =
-        Ext_filename.module_name
-          ~preserve_case:(!Js_config.multi_entry)
+        Ext_filename.module_name ~preserve_case:!Js_config.multi_entry
           outputprefix
       in
       Lam_compile_env.reset ();
@@ -197,7 +196,7 @@ let implementation_map ppf sourcefile =
   let list_of_modules = Ext_io.rev_lines_of_chann ichan in
   close_in ichan;
   let ns =
-    Ext_filename.module_name ~preserve_case:(!Js_config.multi_entry) sourcefile
+    Ext_filename.module_name ~preserve_case:!Js_config.multi_entry sourcefile
   in
   let ml_ast =
     Ext_list.fold_left list_of_modules [] (fun acc line ->

compiler/ext/ext_filename.ml

@@ -78,9 +78,11 @@ let new_extension name (ext : string) =
 *)
 let module_name ?(preserve_case = false) name =
   let rec search_dot i name =
-    if i < 0 then if preserve_case then name else Ext_string.capitalize_ascii name
+    if i < 0 then
+      if preserve_case then name else Ext_string.capitalize_ascii name
     else if String.unsafe_get name i = '.' then
-      if preserve_case then String.sub name 0 i else Ext_string.capitalize_sub name i
+      if preserve_case then String.sub name 0 i
+      else Ext_string.capitalize_sub name i
     else search_dot (i - 1) name
   in
   let name = Filename.basename name in