Sync syntax: Clean up difference between v10 and v11 ppx so files are identical.

Author: cristianoc

lib/4.06.1/unstable/js_compiler.ml

@@ -273517,6 +273517,10 @@ let raiseErrorMultipleReactComponent ~loc =
     "Only one component definition is allowed for each module. Move to a \
      submodule or other file if necessary."
 
+let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
+let extractUncurried typ = typ
+let removeArity binding = binding
+
 end
 module Reactjs_jsx_v3
 = struct
@@ -274743,8 +274747,7 @@ let getLabel str =
   | Optional str | Labelled str -> str
   | Nolabel -> ""
 
-let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
-let optionalAttrs = [optionalAttr]
+let optionalAttrs = [React_jsx_common.optionalAttr]
 
 let constantString ~loc str =
   Ast_helper.Exp.constant ~loc (Pconst_string (str, None))
@@ -275456,6 +275459,7 @@ let transformStructureItem ~config item =
         config.hasReactComponent <- true;
         check_string_int_attribute_iter.structure_item
           check_string_int_attribute_iter item;
+        let pval_type = React_jsx_common.extractUncurried pval_type in
         let coreTypeOfAttr = React_jsx_common.coreTypeOfAttrs pval_attributes in
         let typVarsOfCoreType =
           coreTypeOfAttr
@@ -275526,6 +275530,7 @@ let transformStructureItem ~config item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
+          let binding = React_jsx_common.removeArity binding in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes
           in

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -273517,6 +273517,10 @@ let raiseErrorMultipleReactComponent ~loc =
     "Only one component definition is allowed for each module. Move to a \
      submodule or other file if necessary."
 
+let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
+let extractUncurried typ = typ
+let removeArity binding = binding
+
 end
 module Reactjs_jsx_v3
 = struct
@@ -274743,8 +274747,7 @@ let getLabel str =
   | Optional str | Labelled str -> str
   | Nolabel -> ""
 
-let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
-let optionalAttrs = [optionalAttr]
+let optionalAttrs = [React_jsx_common.optionalAttr]
 
 let constantString ~loc str =
   Ast_helper.Exp.constant ~loc (Pconst_string (str, None))
@@ -275456,6 +275459,7 @@ let transformStructureItem ~config item =
         config.hasReactComponent <- true;
         check_string_int_attribute_iter.structure_item
           check_string_int_attribute_iter item;
+        let pval_type = React_jsx_common.extractUncurried pval_type in
         let coreTypeOfAttr = React_jsx_common.coreTypeOfAttrs pval_attributes in
         let typVarsOfCoreType =
           coreTypeOfAttr
@@ -275526,6 +275530,7 @@ let transformStructureItem ~config item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
+          let binding = React_jsx_common.removeArity binding in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes
           in

lib/4.06.1/whole_compiler.ml

@@ -283914,6 +283914,10 @@ let raiseErrorMultipleReactComponent ~loc =
     "Only one component definition is allowed for each module. Move to a \
      submodule or other file if necessary."
 
+let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
+let extractUncurried typ = typ
+let removeArity binding = binding
+
 end
 module Reactjs_jsx_v3
 = struct
@@ -285140,8 +285144,7 @@ let getLabel str =
   | Optional str | Labelled str -> str
   | Nolabel -> ""
 
-let optionalAttr = ({txt = "ns.optional"; loc = Location.none}, PStr [])
-let optionalAttrs = [optionalAttr]
+let optionalAttrs = [React_jsx_common.optionalAttr]
 
 let constantString ~loc str =
   Ast_helper.Exp.constant ~loc (Pconst_string (str, None))
@@ -285853,6 +285856,7 @@ let transformStructureItem ~config item =
         config.hasReactComponent <- true;
         check_string_int_attribute_iter.structure_item
           check_string_int_attribute_iter item;
+        let pval_type = React_jsx_common.extractUncurried pval_type in
         let coreTypeOfAttr = React_jsx_common.coreTypeOfAttrs pval_attributes in
         let typVarsOfCoreType =
           coreTypeOfAttr
@@ -285923,6 +285927,7 @@ let transformStructureItem ~config item =
           React_jsx_common.raiseErrorMultipleReactComponent ~loc:pstr_loc
         else (
           config.hasReactComponent <- true;
+          let binding = React_jsx_common.removeArity binding in
           let coreTypeOfAttr =
             React_jsx_common.coreTypeOfAttrs binding.pvb_attributes
           in