In GenType only export types (not values) from module types.

Author: cristianoc

jscomp/gentype/TranslateSignature.ml

@@ -61,8 +61,18 @@ and translateModuleTypeDeclaration ~config ~outputFileRelative ~resolver
     match mtd_type.mty_desc with
     | Tmty_signature signature ->
       let name = mtd_id |> Ident.name in
+      (* XXX only translate types *)
+      let signature_without_values =
+        {
+          signature with
+          sig_items =
+            Ext_list.filter signature.sig_items (function
+              | {Typedtree.sig_desc = Typedtree.Tsig_value _} -> false
+              | _ -> true);
+        }
+      in
       let translation =
-        signature
+        signature_without_values
         |> translateSignature ~config ~outputFileRelative ~resolver
              ~typeEnv:(typeEnv |> TypeEnv.newModuleType ~name ~signature)
         |> Translation.combine

jscomp/gentype_tests/typescript-react-example/package-lock.json

@@ -3,13 +3,6 @@
 /* eslint-disable */
 /* tslint:disable */
 
-import * as FirstClassModulesInterfaceBS__Es6Import from './FirstClassModulesInterface.bs';
-const FirstClassModulesInterfaceBS: any = FirstClassModulesInterfaceBS__Es6Import;
-
 export type record = { readonly x: number; readonly y: string };
 
 export type firstClassModule = { readonly x: number };
-
-export const MT_x: number = FirstClassModulesInterfaceBS.MT.x;
-
-export const MT: { x: number } = FirstClassModulesInterfaceBS.MT