fix pipe "->" eats up attrs in 1 arity fn

Author: mununki

jscomp/frontend/ast_exp_apply.ml

@@ -128,6 +128,12 @@ 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 },

jscomp/test/res_debug.js

@@ -53,9 +53,15 @@ function identity(x) {
   return x;
 }
 
-var ok1 = {};
+var name1 = "ReScript";
 
-var bad1 = {};
+var ok1 = {
+  name: name1
+};
+
+var bad1 = {
+  name: name1
+};
 
 var v2 = newrecord;
 
@@ -82,6 +88,7 @@ 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 */

lib/4.06.1/unstable/js_compiler.ml

@@ -269546,6 +269546,12 @@ 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 },

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -271009,6 +271009,12 @@ 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 },

lib/4.06.1/whole_compiler.ml

@@ -281299,6 +281299,12 @@ 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 },