module Distribution.Uusi.Utils
( (|>),
(<|),
chain,
)
where
import Data.Function ((&))
import Distribution.Uusi.Types (Op)
infixl 1 |>
infixr 0 <|
(|>) :: a -> (a -> b) -> b
|> :: forall a b. a -> (a -> b) -> b
(|>) = forall a b. a -> (a -> b) -> b
(&)
(<|) :: (a -> b) -> a -> b
<| :: forall a b. (a -> b) -> a -> b
(<|) = forall a b. (a -> b) -> a -> b
($)
chain :: [Op a] -> Op a
chain :: forall a. [Op a] -> Op a
chain = forall (t :: * -> *) a b.
Foldable t =>
(a -> b -> b) -> b -> t a -> b
foldr forall b c a. (b -> c) -> (a -> b) -> a -> c
(.) forall a. a -> a
id