Remove .ml conversion.

Author: cristianoc

jscomp/bsc/rescript_compiler_main.ml

@@ -195,7 +195,6 @@ let format_file input =
   let ext = Ext_file_extensions.classify_input (Ext_filename.get_extension_maybe input) in 
   let syntax = 
     match ext with 
-    | Ml | Mli -> `ml
     | Res | Resi -> `res 
     | _ -> Bsc_args.bad_arg ("don't know what to do with " ^ input) in   
   let formatted = Res_multi_printer.print ~ignore_parse_errors:!Clflags.ignore_parse_errors syntax ~input in 

jscomp/syntax/cli/res_cli.ml

@@ -195,9 +195,10 @@ end = struct
     [
       ("-recover", Arg.Unit (fun () -> recover := true), "Emit partial ast");
       ( "-parse",
-        Arg.String (fun txt ->
-          let _ = assert (txt <> "ml") in
-          origin := txt),
+        Arg.String
+          (fun txt ->
+            let _ = assert (txt <> "ml") in
+            origin := txt),
         "Parse ml or res. Default: res" );
       ( "-print",
         Arg.String (fun txt -> print := txt),