Implement "|>>" Operator

digitallyinduced · Mar 8, 2022 · 66f99ad · 66f99ad
1 parent 1eca3f3
commit 66f99ad
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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.