Remove internal -modules option.

Author: cristianoc

compiler/bsc/rescript_compiler_main.ml

@@ -400,7 +400,6 @@ let buckle_script_flags : (string * Bsc_args.spec * string) array =
     ( "-bs-no-bin-annot",
       clear Clflags.binary_annotations,
       "*internal* Disable binary annotations (by default on)" );
-    ("-modules", set Js_config.modules, "*internal* serve similar to ocamldep");
     ( "-short-paths",
       clear Clflags.real_paths,
       "*internal* Shorten paths in types" );

compiler/common/js_config.ml

@@ -84,4 +84,3 @@ let jsx_mode_of_string = function
 let customize_runtime : string option ref = ref None
 let as_pp = ref false
 let self_stack : string Stack.t = Stack.create ()
-let modules = ref false

compiler/common/js_config.mli

@@ -108,5 +108,3 @@ val customize_runtime : string option ref
 val as_pp : bool ref
 
 val self_stack : string Stack.t
-
-val modules : bool ref

compiler/core/js_implementation.ml

@@ -30,26 +30,12 @@ let print_if_pipe ppf flag printer arg =
 
 let print_if ppf flag printer arg = if !flag then fprintf ppf "%a@." printer arg
 
-let output_deps_set name set =
-  output_string stdout name;
-  output_string stdout ": ";
-  Depend.StringSet.iter
-    (fun s ->
-      if s <> "" && s.[0] <> '*' then (
-        output_string stdout s;
-        output_string stdout " "))
-    set;
-  output_string stdout "\n"
-
 let process_with_gentype cmt_file =
   if !Clflags.bs_gentype then GenTypeMain.process_cmt_file cmt_file
 
 let after_parsing_sig ppf outputprefix ast =
   if !Clflags.only_parse = false then (
     Ast_config.process_sig ast;
-    if !Js_config.modules then
-      output_deps_set !Location.input_name
-        (Ast_extract.read_parse_and_extract Mli ast);
     (if !Js_config.binary_ast then
        let sourcefile = !Location.input_name in
        Binary_ast.write_ast Mli ~sourcefile
@@ -133,9 +119,6 @@ let after_parsing_impl ppf outputprefix (ast : Parsetree.structure) =
       !Clflags.assume_no_mli = Mli_non_exists && all_module_alias ast;
     Ast_config.process_str ast;
     let ast = if !Js_config.no_export then no_export ast else ast in
-    if !Js_config.modules then
-      output_deps_set !Location.input_name
-        (Ast_extract.read_parse_and_extract Ml ast);
     (if !Js_config.binary_ast then
        let sourcefile = !Location.input_name in
        Binary_ast.write_ast ~sourcefile Ml