Remove function that does nothing.

Author: cristianoc

compiler/syntax/src/jsx_common.ml

@@ -50,22 +50,6 @@ let raise_error_multiple_component ~loc =
     "Only one component definition is allowed for each module. Move to a \
      submodule or other file if necessary."
 
-let remove_arity binding =
-  let rec remove_arity_record expr =
-    match expr.pexp_desc with
-    | _ when Ast_uncurried.expr_is_uncurried_fun expr ->
-      Ast_uncurried.expr_extract_uncurried_fun expr
-    | Pexp_newtype (label, e) ->
-      {expr with pexp_desc = Pexp_newtype (label, remove_arity_record e)}
-    | Pexp_apply (forward_ref, [(label, e)]) ->
-      {
-        expr with
-        pexp_desc = Pexp_apply (forward_ref, [(label, remove_arity_record e)]);
-      }
-    | _ -> expr
-  in
-  {binding with pvb_expr = remove_arity_record binding.pvb_expr}
-
 let async_component ~async expr =
   if async then
     let open Ast_helper in

compiler/syntax/src/jsx_v4.ml

@@ -927,7 +927,6 @@ let vb_match_expr named_arg_list expr =
 let map_binding ~config ~empty_loc ~pstr_loc ~file_name ~rec_flag binding =
   if Jsx_common.has_attr_on_binding Jsx_common.has_attr binding then (
     check_multiple_components ~config ~loc:pstr_loc;
-    let binding = Jsx_common.remove_arity binding in
     let core_type_of_attr =
       Jsx_common.core_type_of_attrs binding.pvb_attributes
     in
@@ -1173,12 +1172,10 @@ let map_binding ~config ~empty_loc ~pstr_loc ~file_name ~rec_flag binding =
     (Some props_record_type, binding, new_binding))
   else if Jsx_common.has_attr_on_binding Jsx_common.has_attr_with_props binding
   then
-    let modified_binding = Jsx_common.remove_arity binding in
     let modified_binding =
       {
-        modified_binding with
-        pvb_attributes =
-          modified_binding.pvb_attributes |> List.filter other_attrs_pure;
+        binding with
+        pvb_attributes = binding.pvb_attributes |> List.filter other_attrs_pure;
       }
     in
     let fn_name = get_fn_name modified_binding.pvb_pat in