id summary reporter owner description type status priority milestone component version resolution keywords cc os architecture failure testcase blockedby blocking related differential wikipage
997 Add Kleisli composition to Control.Monad dons "Kleisli composition of monads is a foundational feature missing from the current Control.Monad library. A [http://thread.gmane.org/gmane.comp.lang.haskell.libraries/5412/focus=5412 recent discussion] revealed solid support for its inclusion.
This patch adds:
{{{
(>=>) :: (Monad m) => (a -> m b) -> (b -> m c) -> (a -> m c)
(<=<) :: (Monad m) => (b -> m c) -> (a -> m b) -> (a -> m c)
}}}
Along with the useful control combinator:
{{{
forever :: (Monad m) => m a -> m ()
}}}
[http://www.cse.unsw.edu.au/~dons/data/cc.prelude Traditionally], {{{>=>}}} has been written as {{{@@}}}, however to support the flipped version, new notation seems to be required. It should be notated that there is overlap with the Kleisli class in Control.Arrow (specifically {{{>>>}}}), however, short of a convenient unifying form for Arrow and Monad, a monad-specific {{{>>>}}} seems reasonable. To mirror {{{>>>}}} and {{{=<<}}}, infixr 1 was chosen.
Proposal period: 2 weeks. Deadline: 27th November.
The patch in its entirety:
{{{
New patches:
[Add Kleisli composition
Don Stewart **20061113015442] {
hunk ./Control/Monad.hs 40
+ , (>=>) -- :: (Monad m) => (a -> m b) -> (b -> m c) -> (a -> m c)
+ , (<=<) -- :: (Monad m) => (b -> m c) -> (a -> m b) -> (a -> m c)
+ , forever -- :: (Monad m) => m a -> m ()
hunk ./Control/Monad.hs 179
+infixr 1 <=<, >=>
+
+-- | Left-to-right Kleisli composition of monads.
+(>=>) :: Monad m => (a -> m b) -> (b -> m c) -> (a -> m c)
+f >=> g = \x -> f x >>= g
+
+-- | Right-to-left Kleisli composition of monads. '(>=>)', with the arguments flipped
+(<=<) :: Monad m => (b -> m c) -> (a -> m b) -> (a -> m c)
+(<=<) = flip (>=>)
+
+-- | @'forever' act@ repeats the action infinitely.
+forever :: (Monad m) => m a -> m ()
+forever a = a >> forever a
+
hunk ./Control/Monad.hs 310
+
}}}" proposal closed normal libraries/base 6.6 fixed Unknown/Multiple Unknown/Multiple