Fix syntax snapshots

Author: fhammerschmidt

compiler/syntax/src/jsx_v4.ml

@@ -1331,6 +1331,17 @@ let mk_uppercase_tag_name_expr tag_name =
 
 let expr ~(config : Jsx_common.jsx_config) mapper expression =
   match expression with
+  | {pexp_desc = Pexp_letmodule (name, module_expr, body); pexp_loc = loc; pexp_attributes = attrs}
+    ->
+    config.nested_modules <- name.txt :: config.nested_modules;
+    let mapped_module_expr = default_mapper.module_expr mapper module_expr in
+    let mapped_body = mapper.expr mapper body in
+    let () =
+      match config.nested_modules with
+      | _ :: rest -> config.nested_modules <- rest
+      | [] -> ()
+    in
+    Exp.letmodule ~loc ~attrs name mapped_module_expr mapped_body
   | {
    pexp_desc = Pexp_jsx_element jsx_element;
    pexp_loc = loc;

tests/syntax_tests/data/ppx/react/expected/aliasProps.res.txt

@@ -148,10 +148,17 @@ module C6 = {
   }
 
   let make = ({comp: module(Comp: Comp), x: (a, b), _}: props<_, _>): React.element =>
-    React.jsx(Comp.make, {})
+    React.jsx(@res.jsxComponentPath Comp.make, {})
   let make = {
     let \"AliasProps$C6" = (props: props<_>) => make(props)
 
     \"AliasProps$C6"
   }
 }
+let \"AliasProps$C0" = C0.make and \"AliasProps$C0$jsx" = true
+let \"AliasProps$C1" = C1.make and \"AliasProps$C1$jsx" = true
+let \"AliasProps$C2" = C2.make and \"AliasProps$C2$jsx" = true
+let \"AliasProps$C3" = C3.make and \"AliasProps$C3$jsx" = true
+let \"AliasProps$C4" = C4.make and \"AliasProps$C4$jsx" = true
+let \"AliasProps$C5" = C5.make and \"AliasProps$C5$jsx" = true
+let \"AliasProps$C6" = C6.make and \"AliasProps$C6$jsx" = true

tests/syntax_tests/data/ppx/react/expected/asyncAwait.res.txt

@@ -35,3 +35,5 @@ module C1 = {
     \"AsyncAwait$C1"
   }
 }
+let \"AsyncAwait$C0" = C0.make and \"AsyncAwait$C0$jsx" = true
+let \"AsyncAwait$C1" = C1.make and \"AsyncAwait$C1$jsx" = true

tests/syntax_tests/data/ppx/react/expected/defaultValueProp.res.txt

@@ -86,3 +86,7 @@ module C3 = {
     \"DefaultValueProp$C3"
   }
 }
+let \"DefaultValueProp$C0" = C0.make and \"DefaultValueProp$C0$jsx" = true
+let \"DefaultValueProp$C1" = C1.make and \"DefaultValueProp$C1$jsx" = true
+let \"DefaultValueProp$C2" = C2.make and \"DefaultValueProp$C2$jsx" = true
+let \"DefaultValueProp$C3" = C3.make and \"DefaultValueProp$C3$jsx" = true

tests/syntax_tests/data/ppx/react/expected/externalWithCustomName.res.txt

@@ -11,4 +11,4 @@ module Foo = {
   external component: React.component<props<int, string>> = "component"
 }
 
-let t = React.jsx(Foo.component, {a: 1, b: {"1"}})
+let t = React.jsx(@res.jsxComponentPath Foo.component, {a: 1, b: {"1"}})

tests/syntax_tests/data/ppx/react/expected/fileLevelConfig.res.txt

@@ -15,3 +15,4 @@ module V4A = {
     \"FileLevelConfig$V4A"
   }
 }
+let \"FileLevelConfig$V4A" = V4A.make and \"FileLevelConfig$V4A$jsx" = true

tests/syntax_tests/data/ppx/react/expected/forwardRef.res.txt

@@ -45,7 +45,10 @@ module V4A = {
         "div",
         {
           children: ?ReactDOM.someElement(
-            React.jsx(FancyInput.make, {ref: input, children: {React.string("Click to focus")}}),
+            React.jsx(
+              @res.jsxComponentPath FancyInput.make,
+              {ref: input, children: {React.string("Click to focus")}},
+            ),
           ),
         },
       ): React.element
@@ -103,7 +106,10 @@ module V4AUncurried = {
         "div",
         {
           children: ?ReactDOM.someElement(
-            React.jsx(FancyInput.make, {ref: input, children: {React.string("Click to focus")}}),
+            React.jsx(
+              @res.jsxComponentPath FancyInput.make,
+              {ref: input, children: {React.string("Click to focus")}},
+            ),
           ),
         },
       ): React.element
@@ -115,3 +121,8 @@ module V4AUncurried = {
     \"ForwardRef$V4AUncurried"
   }
 }
+let \"ForwardRef$V4A$FancyInput" = V4A.FancyInput.make and \"ForwardRef$V4A$FancyInput$jsx" = true
+let \"ForwardRef$V4A" = V4A.make and \"ForwardRef$V4A$jsx" = true
+let \"ForwardRef$V4AUncurried$FancyInput" = V4AUncurried.FancyInput.make
+and \"ForwardRef$V4AUncurried$FancyInput$jsx" = true
+let \"ForwardRef$V4AUncurried" = V4AUncurried.make and \"ForwardRef$V4AUncurried$jsx" = true

tests/syntax_tests/data/ppx/react/expected/fragment.res.txt

@@ -7,11 +7,11 @@ let _ = React.jsxs(
   {children: React.array([ReactDOM.jsx("div", {}), ReactDOM.jsx("div", {})])},
 )
 let _ = React.jsx(React.jsxFragment, {children: React.jsx(React.jsxFragment, {})})
-let _ = React.jsx(Z.make, {})
-let _ = React.jsx(Z.make, {children: ReactDOM.jsx("div", {})})
-let _ = React.jsx(Z.make, {a: "a", children: ReactDOM.jsx("div", {})})
+let _ = React.jsx(@res.jsxComponentPath Z.make, {})
+let _ = React.jsx(@res.jsxComponentPath Z.make, {children: ReactDOM.jsx("div", {})})
+let _ = React.jsx(@res.jsxComponentPath Z.make, {a: "a", children: ReactDOM.jsx("div", {})})
 let _ = React.jsxs(
-  Z.make,
+  @res.jsxComponentPath Z.make,
   {children: React.array([ReactDOM.jsx("div", {}), ReactDOM.jsx("div", {})])},
 )
 let _ = ReactDOM.jsx("div", {})

tests/syntax_tests/data/ppx/react/expected/interface.res.txt

@@ -21,3 +21,5 @@ module NoProps = {
     \"Interface$NoProps"
   }
 }
+let \"Interface$A" = A.make and \"Interface$A$jsx" = true
+let \"Interface$NoProps" = NoProps.make and \"Interface$NoProps$jsx" = true

tests/syntax_tests/data/ppx/react/expected/mangleKeyword.res.txt

@@ -25,5 +25,6 @@ module C4A1 = {
   external make: React.component<props<string, string>> = "default"
 }
 
-let c4a0 = React.jsx(C4A0.make, {_open: "x", _type: "t"})
-let c4a1 = React.jsx(C4A1.make, {_open: "x", _type: "t"})
+let c4a0 = React.jsx(@res.jsxComponentPath C4A0.make, {_open: "x", _type: "t"})
+let c4a1 = React.jsx(@res.jsxComponentPath C4A1.make, {_open: "x", _type: "t"})
+let \"MangleKeyword$C4A0" = C4A0.make and \"MangleKeyword$C4A0$jsx" = true