From 66f99adc95d26cb9c65144a4ab953c633f6faf6e Mon Sep 17 00:00:00 2001
From: s0kil <dtechtours@gmail.com>
Date: Tue, 8 Mar 2022 02:27:14 -0500
Subject: [PATCH] Implement "|>>" Operator

---
 IHP/HaskellSupport.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/IHP/HaskellSupport.hs b/IHP/HaskellSupport.hs
index 30e94f41d..07b0f8786 100644
--- a/IHP/HaskellSupport.hs
+++ b/IHP/HaskellSupport.hs
@@ -7,6 +7,7 @@ Copyright: (c) digitally induced GmbH, 2020
 -}
 module IHP.HaskellSupport
 ( (|>)
+, (|>>)
 , whenEmpty
 , whenNonEmpty
 , get
@@ -56,6 +57,10 @@ infixl 8 |>
 a |> f = f a
 {-# INLINE (|>) #-}
 
+infixl 8 |>>
+a |>> b = a <&> b
+{-# INLINABLE (|>>) #-}
+
 -- | Used by 'nonEmpty' and 'isEmptyValue' to check for emptyness
 class IsEmpty value where
     -- | Returns True when the value is an empty string, empty list, zero UUID, etc.