Remove GenType module.

Author: cristianoc

jscomp/core/js_implementation.ml

@@ -42,8 +42,7 @@ let output_deps_set name set =
   output_string stdout "\n"
 
 let process_with_gentype cmt_file =
-  if !Clflags.bs_gentype then
-    GenType.processCmt cmt_file
+  if !Clflags.bs_gentype then GenTypeMain.processCmtFile cmt_file
 
 let after_parsing_sig ppf outputprefix ast =
   Ast_config.iter_on_bs_config_sigi ast;

jscomp/gentype/GenType.ml

@@ -93,7 +93,9 @@ let readCmt cmtFile =
     Log_.item "And try to clean and rebuild.\n\n";
     assert false
 
-let processCmtFile ~config cmt =
+let processCmtFile cmt =
+  let config = Paths.readConfig ~namespace:(cmt |> Paths.findNameSpace) in
+  if !Debug.basic then Log_.item "Cmt %s\n" cmt;
   let cmtFile = cmt |> Paths.getCmtFile in
   if cmtFile <> "" then
     let outputFile = cmt |> Paths.getOutputFile ~config in

jscomp/gentype/GenTypeMain.ml

@@ -241846,7 +241846,9 @@ let readCmt cmtFile =
     Log_.item "And try to clean and rebuild.\n\n";
     assert false
 
-let processCmtFile ~config cmt =
+let processCmtFile cmt =
+  let config = Paths.readConfig ~namespace:(cmt |> Paths.findNameSpace) in
+  if !Debug.basic then Log_.item "Cmt %s\n" cmt;
   let cmtFile = cmt |> Paths.getCmtFile in
   if cmtFile <> "" then
     let outputFile = cmt |> Paths.getOutputFile ~config in
@@ -241918,15 +241920,6 @@ let processCmtFile ~config cmt =
       outputFile |> GeneratedFiles.logFileAction NoMatch;
       if Sys.file_exists outputFile then Unix.unlink outputFile)
 
-end
-module GenType
-= struct
-#1 "GenType.ml"
-let processCmt cmt =
-  let config = Paths.readConfig ~namespace:(cmt |> Paths.findNameSpace) in
-  if !Debug.basic then Log_.item "Add %s\n" cmt;
-  cmt |> GenTypeMain.processCmtFile ~config
-
 end
 module Includeclass : sig 
 #1 "includeclass.mli"
@@ -291650,8 +291643,7 @@ let output_deps_set name set =
   output_string stdout "\n"
 
 let process_with_gentype cmt_file =
-  if !Clflags.bs_gentype then
-    GenType.processCmt cmt_file
+  if !Clflags.bs_gentype then GenTypeMain.processCmtFile cmt_file
 
 let after_parsing_sig ppf outputprefix ast =
   Ast_config.iter_on_bs_config_sigi ast;

lib/4.06.1/whole_compiler.ml

@@ -444,7 +444,6 @@
 ../lib/4.06.1/whole_compiler.ml: ./gentype/ExportModule.ml
 ../lib/4.06.1/whole_compiler.ml: ./gentype/FindSourceFile.ml
 ../lib/4.06.1/whole_compiler.ml: ./gentype/GenIdent.ml
-../lib/4.06.1/whole_compiler.ml: ./gentype/GenType.ml
 ../lib/4.06.1/whole_compiler.ml: ./gentype/GenTypeCommon.ml
 ../lib/4.06.1/whole_compiler.ml: ./gentype/GenTypeConfig.ml
 ../lib/4.06.1/whole_compiler.ml: ./gentype/GenTypeMain.ml