Remove what's now the identity function.

Author: cristianoc

compiler/ml/ast_uncurried.ml

@@ -38,11 +38,6 @@ let expr_extract_uncurried_fun (expr : Parsetree.expression) =
   | Pexp_fun (_, _, _, _, Some _) -> expr
   | _ -> assert false
 
-let remove_fun (expr : Parsetree.expression) =
-  match expr.pexp_desc with
-  | Pexp_construct ({txt = Lident "Function$"}, Some e) -> e
-  | _ -> expr
-
 let core_type_is_uncurried_fun (typ : Parsetree.core_type) =
   match typ.ptyp_desc with
   | Ptyp_constr ({txt = Lident "function$"}, [{ptyp_desc = Ptyp_arrow _}; _]) ->

compiler/syntax/src/res_parens.ml

@@ -83,7 +83,6 @@ let unary_expr_operand expr =
   match opt_braces with
   | Some ({Location.loc = braces_loc}, _) -> Braced braces_loc
   | None -> (
-    let expr = Ast_uncurried.remove_fun expr in
     match expr with
     | {Parsetree.pexp_attributes = attrs}
       when match ParsetreeViewer.filter_parsing_attrs attrs with
@@ -167,7 +166,6 @@ let rhs_binary_expr_operand parent_operator rhs =
   | _ -> false
 
 let flatten_operand_rhs parent_operator rhs =
-  let rhs = Ast_uncurried.remove_fun rhs in
   match rhs.Parsetree.pexp_desc with
   | Parsetree.Pexp_apply
       ( {
@@ -241,7 +239,6 @@ let is_negative_constant constant =
   | _ -> false
 
 let field_expr expr =
-  let expr = Ast_uncurried.remove_fun expr in
   let opt_braces, _ = ParsetreeViewer.process_braces_attr expr in
   match opt_braces with
   | Some ({Location.loc = braces_loc}, _) -> Braced braces_loc