add project root to default config

Author: Bushuo

compiler/gentype/GenTypeConfig.ml

@@ -105,6 +105,26 @@ let set_debug ~gtconf =
 let compiler_config_file = "rescript.json"
 let legacy_compiler_config_file = "bsconfig.json"
 
+let default_config ~project_root ~bsb_project_root =
+  {
+    project_root;
+    bsb_project_root;
+    bs_dependencies = default.bs_dependencies;
+    suffix = default.suffix;
+    emit_import_curry = default.emit_import_curry;
+    emit_import_react = default.emit_import_react;
+    emit_type_prop_done = default.emit_type_prop_done;
+    everything = default.everything;
+    export_interfaces = default.export_interfaces;
+    generated_file_extension = default.generated_file_extension;
+    module_ = default.module_;
+    module_resolution = default.module_resolution;
+    namespace = default.namespace;
+    platform_lib = default.platform_lib;
+    shims_map = default.shims_map;
+    sources = default.sources;
+  }
+
 let rec find_project_root ~dir =
   if
     Sys.file_exists (Filename.concat dir compiler_config_file)
@@ -247,7 +267,7 @@ let read_config ~get_config_file ~namespace =
       | Obj {map = bsconf} -> (
         match bsconf |> get_opt "gentypeconfig" with
         | Some (Obj {map = gtconf}) -> parse_config ~bsconf ~gtconf
-        | _ -> default)
-      | _ -> default
-    with _ -> default)
-  | None -> default
+        | _ -> default_config ~project_root ~bsb_project_root)
+      | _ -> default_config ~project_root ~bsb_project_root
+    with _ -> default_config ~project_root ~bsb_project_root)
+  | None -> default_config ~project_root ~bsb_project_root