Implement "|>>" Operator

Author: s0kil

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.