fix pipe "-> eats up attrs in comprehensive cases

Author: mununki

jscomp/frontend/ast_exp_apply.ml

@@ -128,12 +128,6 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                 pexp_loc = e.pexp_loc;
                 pexp_attributes = e.pexp_attributes;
               }
-          | Pexp_ident _ ->
-              {
-                pexp_desc = Pexp_apply (fn, [ (Nolabel, new_obj_arg) ]);
-                pexp_loc = e.pexp_loc;
-                pexp_attributes = e.pexp_attributes;
-              }
           | _ -> (
               match Ast_open_cxt.destruct fn [] with
               | ( { pexp_desc = Pexp_tuple xs; pexp_attributes = tuple_attrs },
@@ -186,7 +180,9 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                     pexp_attributes = [];
                     pexp_loc = loc;
                   }
-              | _ -> Ast_compatible.app1 ~loc fn new_obj_arg))
+              | _ ->
+                  Ast_compatible.app1 ~loc ~attrs:e.pexp_attributes fn
+                    new_obj_arg))
       | Some { op = "##"; loc; args = [ obj; rest ] } -> (
           (* - obj##property
              - obj#(method a b )

lib/4.06.1/unstable/js_compiler.ml

@@ -269546,12 +269546,6 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                 pexp_loc = e.pexp_loc;
                 pexp_attributes = e.pexp_attributes;
               }
-          | Pexp_ident _ ->
-              {
-                pexp_desc = Pexp_apply (fn, [ (Nolabel, new_obj_arg) ]);
-                pexp_loc = e.pexp_loc;
-                pexp_attributes = e.pexp_attributes;
-              }
           | _ -> (
               match Ast_open_cxt.destruct fn [] with
               | ( { pexp_desc = Pexp_tuple xs; pexp_attributes = tuple_attrs },
@@ -269604,7 +269598,9 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                     pexp_attributes = [];
                     pexp_loc = loc;
                   }
-              | _ -> Ast_compatible.app1 ~loc fn new_obj_arg))
+              | _ ->
+                  Ast_compatible.app1 ~loc ~attrs:e.pexp_attributes fn
+                    new_obj_arg))
       | Some { op = "##"; loc; args = [ obj; rest ] } -> (
           (* - obj##property
              - obj#(method a b )

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -271009,12 +271009,6 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                 pexp_loc = e.pexp_loc;
                 pexp_attributes = e.pexp_attributes;
               }
-          | Pexp_ident _ ->
-              {
-                pexp_desc = Pexp_apply (fn, [ (Nolabel, new_obj_arg) ]);
-                pexp_loc = e.pexp_loc;
-                pexp_attributes = e.pexp_attributes;
-              }
           | _ -> (
               match Ast_open_cxt.destruct fn [] with
               | ( { pexp_desc = Pexp_tuple xs; pexp_attributes = tuple_attrs },
@@ -271067,7 +271061,9 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                     pexp_attributes = [];
                     pexp_loc = loc;
                   }
-              | _ -> Ast_compatible.app1 ~loc fn new_obj_arg))
+              | _ ->
+                  Ast_compatible.app1 ~loc ~attrs:e.pexp_attributes fn
+                    new_obj_arg))
       | Some { op = "##"; loc; args = [ obj; rest ] } -> (
           (* - obj##property
              - obj#(method a b )

lib/4.06.1/whole_compiler.ml

@@ -281299,12 +281299,6 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                 pexp_loc = e.pexp_loc;
                 pexp_attributes = e.pexp_attributes;
               }
-          | Pexp_ident _ ->
-              {
-                pexp_desc = Pexp_apply (fn, [ (Nolabel, new_obj_arg) ]);
-                pexp_loc = e.pexp_loc;
-                pexp_attributes = e.pexp_attributes;
-              }
           | _ -> (
               match Ast_open_cxt.destruct fn [] with
               | ( { pexp_desc = Pexp_tuple xs; pexp_attributes = tuple_attrs },
@@ -281357,7 +281351,9 @@ let app_exp_mapper (e : exp) (self : Bs_ast_mapper.mapper) (fn : exp)
                     pexp_attributes = [];
                     pexp_loc = loc;
                   }
-              | _ -> Ast_compatible.app1 ~loc fn new_obj_arg))
+              | _ ->
+                  Ast_compatible.app1 ~loc ~attrs:e.pexp_attributes fn
+                    new_obj_arg))
       | Some { op = "##"; loc; args = [ obj; rest ] } -> (
           (* - obj##property
              - obj#(method a b )