Fix issues where pipe "->" processing eats up attributes in 1 arity function

jscomp/frontend/ast_exp_apply.ml

@@ -180,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 )

jscomp/test/res_debug.js

@@ -49,6 +49,20 @@ var bad = {
   name: bad_name
 };
 
+function identity(x) {
+  return x;
+}
+
+var name1 = "ReScript";
+
+var ok1 = {
+  name: name1
+};
+
+var bad1 = {
+  name: name1
+};
+
 var v2 = newrecord;
 
 var v1 = {
@@ -73,4 +87,8 @@ exports.optionMap = optionMap;
 exports.name = name;
 exports.ok = ok;
 exports.bad = bad;
+exports.identity = identity;
+exports.name1 = name1;
+exports.ok1 = ok1;
+exports.bad1 = bad1;
 /*  Not a pure module */

jscomp/test/res_debug.res

@@ -65,4 +65,11 @@ type props<'name> = {key?: string, name?: string}
 let name = None
 
 let ok = {name: ?optionMap(name, x => x)}
-let bad = {name: ?name->optionMap(x => x)}
+let bad = {name: ?name->optionMap(x => x)}
+
+let identity = x => x
+
+let name1 = Some("ReScript")
+
+let ok1 = {name: ?identity(name1)}
+let bad1 = {name: ?name1->identity}

lib/4.06.1/unstable/js_compiler.ml

@@ -269598,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

@@ -271061,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

@@ -281351,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 )