diff --git a/CHANGELOG.md b/CHANGELOG.md
index f4ec163724..0ded7e66aa 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -45,6 +45,7 @@
 - Fix Deno compatibility issues on Windows. https://github.com/rescript-lang/rescript-compiler/pull/6850
 - Fix issue with infinite loops with type errors on recursive types. https://github.com/rescript-lang/rescript-compiler/pull/6867
 - Fix issue where using partial application `...` can generate code that uses `Curry` at runtime. https://github.com/rescript-lang/rescript-compiler/pull/6872
+- Avoid generation of `Curry` with reverse application `|>`. https://github.com/rescript-lang/rescript-compiler/pull/6876
 
 #### :house: Internal
 
diff --git a/jscomp/syntax/src/res_core.ml b/jscomp/syntax/src/res_core.ml
index 76b7b8fb32..e1d7720717 100644
--- a/jscomp/syntax/src/res_core.ml
+++ b/jscomp/syntax/src/res_core.ml
@@ -2261,7 +2261,7 @@ and parse_binary_expr ?(context = OrdinaryExpr) ?a p prec =
           when p.uncurried_config = Uncurried ->
           {b with pexp_desc = Pexp_apply (fun_expr, args @ [(Nolabel, a)])}
         | BarGreater, _ when p.uncurried_config = Uncurried ->
-          Ast_helper.Exp.apply ~loc b [(Nolabel, a)]
+          Ast_helper.Exp.apply ~loc ~attrs:[uncurried_app_attr] b [(Nolabel, a)]
         | _ ->
           Ast_helper.Exp.apply ~loc
             (make_infix_operator p token start_pos end_pos)
diff --git a/jscomp/test/UncurriedAlways.js b/jscomp/test/UncurriedAlways.js
index 49ed17a026..486d19c87e 100644
--- a/jscomp/test/UncurriedAlways.js
+++ b/jscomp/test/UncurriedAlways.js
@@ -202,6 +202,14 @@ let PartialApplication = {
   fxyz: fxyz
 };
 
+function hello1(y, f) {
+  return f(y);
+}
+
+function hello2(y, f) {
+  return f(y);
+}
+
 exports.foo = foo;
 exports.z = z;
 exports.bar = bar;
@@ -222,4 +230,6 @@ exports.fn = fn;
 exports.fn1 = fn1;
 exports.a = a$1;
 exports.PartialApplication = PartialApplication;
+exports.hello1 = hello1;
+exports.hello2 = hello2;
 /*  Not a pure module */
diff --git a/jscomp/test/UncurriedAlways.res b/jscomp/test/UncurriedAlways.res
index a8872f689e..c2dc18939f 100644
--- a/jscomp/test/UncurriedAlways.res
+++ b/jscomp/test/UncurriedAlways.res
@@ -90,3 +90,9 @@ module PartialApplication = {
 
   let fxyz = f3(~x=1, ~y=1, ~z=1, ...)
 }
+
+let hello1 = (y, f) => f(y)
+
+let hello2 = (y, f) => y |> f
+
+