mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 03:01:31 +03:00
22 lines
522 B
Idris
22 lines
522 B
Idris
|
module Control.Monad.Syntax
|
||
|
|
|
||
|
|
%default total
|
||
|
|
|
||
|
|
infixr 1 =<<, <=<, >=>
|
||
|
|
|
||
|
|
||| Left-to-right Kleisli composition of monads.
|
||
|
|
public export
|
||
|
|
(>=>) : Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
|
||
|
|
(>=>) f g = \x => f x >>= g
|
||
|
|
|
||
|
|
public export
|
||
|
|
||| Right-to-left Kleisli composition of monads, flipped version of `>=>`.
|
||
|
|
(<=<) : Monad m => (b -> m c) -> (a -> m b) -> (a -> m c)
|
||
|
|
(<=<) = flip (>=>)
|
||
|
|
|
||
|
|
public export
|
||
|
|
||| Right-to-left monadic bind, flipped version of `>>=`.
|
||
|
|
(=<<) : Monad m => (a -> m b) -> m a -> m b
|
||
|
|
(=<<) = flip (>>=)
|
||
|
|
|