change matching approach

Author: zth

jscomp/ml/translcore.ml

@@ -810,10 +810,15 @@ and transl_exp0 (e : Typedtree.expression) : Lambda.lambda =
               wrap (Lprim (prim, argl, e.exp_loc))
               ))
   | Texp_apply
-      ( {exp_desc = Texp_ident (p, _, _)},
+      ( {
+          exp_desc =
+            Texp_ident
+              ( Pdot (Pdot (Pident module_name, "Dict", _), "fromArray", _),
+                _,
+                _ );
+        },
         [(_lbl, Some {exp_desc = Texp_array args})] )
-    when Path.name p = "Js.Dict.fromArray"
-          && args_elgible_for_dict_inlining args ->
+    when Ident.name module_name = "Js" && args_elgible_for_dict_inlining args ->
     let fields = Array.make (List.length args) "" in
     let args =
       args

jscomp/test/DictTests.js

@@ -13,3 +13,15 @@ let dictCreationCanBeInlined2 = Js.Dict._unsafe_create([
   ("age", "what"),
   ("more", "stuff"),
 ])
+
+open Js
+
+let dictCreationCanBeInlined3 = Dict.fromArray([
+  ("name", "hello"),
+  ("age", "what"),
+  ("more", "stuff"),
+])
+
+open Dict
+
+let dictCreationCanBeInlined4 = fromArray([("name", "hello"), ("age", "what"), ("more", "stuff")])