dce

src/Config_.ml

@@ -13,7 +13,6 @@ type bsVersion = int * int * int
 type config = {
   bsCurryPath : string option;
   bsDependencies : string list;
-  mutable emitFlowAny : bool;
   mutable emitImportCurry : bool;
   mutable emitImportPropTypes : bool;
   mutable emitImportReact : bool;
@@ -33,7 +32,6 @@ let default =
   {
     bsCurryPath = None;
     bsDependencies = [];
-    emitFlowAny = false;
     emitImportCurry = false;
     emitImportPropTypes = false;
     emitImportReact = false;
@@ -220,7 +218,6 @@ let readConfig ~bsVersion ~getBsConfigFile ~namespace =
       bsCurryPath;
       bsDependencies;
       suffix;
-      emitFlowAny = false;
       emitImportCurry = false;
       emitImportPropTypes = false;
       emitImportReact = false;

src/EmitJs.ml

@@ -241,7 +241,6 @@ let rec emitCodeItem ~config ~emitters ~moduleItemsEmitter ~env ~fileName
       type t = {
         propsType : type_;
         resolvedTypeName : ResolvedName.t;
-        retType : type_;
         typeVars : string list;
       }
     end in
@@ -297,7 +296,7 @@ let rec emitCodeItem ~config ~emitters ~moduleItemsEmitter ~env ~fileName
           else ResolvedName.fromString name |> ResolvedName.dot "Props"
         in
         ( Function {function_ with componentName = Some hookName},
-          Some {HookType.propsType; resolvedTypeName; retType; typeVars} )
+          Some {HookType.propsType; resolvedTypeName; typeVars} )
       | _ -> (type_, None)
     in
 

src/ImportPath.ml

@@ -4,8 +4,6 @@ type t = string * string
 
 let propTypes = ("", "prop-types")
 
-let react = ("", "react")
-
 let bsCurryPath ~config = ("", Config_.getBsCurryPath ~config)
 
 let fromModule ~dir ~importExtension moduleName =

src/ImportPath.mli

@@ -14,6 +14,4 @@ val fromStringUnsafe : string -> t
 
 val propTypes : t
 
-val react : t
-
 val toCmt : config:config -> outputFileRelative:string -> t -> string

src/ModuleName.ml

@@ -4,9 +4,7 @@ let curry = "Curry"
 
 let propTypes = "PropTypes"
 
-let react = "React"
-
-let rescriptPervasives = "RescriptPervasives"
+let reasonPervasives = "ReasonPervasives"
 
 let dotRegex = "." |> Str.quote |> Str.regexp
 

src/ModuleName.mli

@@ -13,9 +13,7 @@ val fromStringUnsafe : string -> t
 
 val propTypes : t
 
-val react : t
-
-val rescriptPervasives : t
+val reasonPervasives : t
 
 val toString : t -> string