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