From 3b4505c14469c16b3a71c995df97583c7b430ac8 Mon Sep 17 00:00:00 2001
From: Leonardo Taglialegne <leonardo@taglialegne.it>
Date: Tue, 20 Jan 2026 12:44:50 +0100
Subject: [PATCH] Add Elm.Op.pipeTo

---
 src/Elm/Op.elm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/Elm/Op.elm b/src/Elm/Op.elm
index 93d0212b..d04cd0d9 100644
--- a/src/Elm/Op.elm
+++ b/src/Elm/Op.elm
@@ -3,7 +3,7 @@ module Elm.Op exposing
     , append, cons
     , plus, minus, multiply, divide, intDivide, power
     , lt, gt, lte, gte
-    , pipe, pipeLeft
+    , pipe, pipeLeft, pipeTo
     , parens
     , keep, skip
     , slash, query
@@ -39,7 +39,7 @@ Would generate
 
 @docs lt, gt, lte, gte
 
-@docs pipe, pipeLeft
+@docs pipe, pipeLeft, pipeTo
 
 @docs parens
 
@@ -474,6 +474,13 @@ pipeLeft =
         )
 
 
+{-| Like `pipe`, but accepts a function as argument.
+-}
+pipeTo : (Elm.Expression -> Elm.Expression) -> Elm.Expression -> Elm.Expression
+pipeTo f x =
+    pipe (Elm.functionReduced "pipeArg" f) x
+
+
 {-| Like applyInfix, but without parens
 -}
 applyPipe : BinOp -> Annotation.TypeAnnotation -> Expression -> Expression -> Expression