Commit aa8ed12c authored by Mart Lubbers's avatar Mart Lubbers

Implement the >>| combinator as in #113

parent b79c27bb
......@@ -16,7 +16,9 @@ instance TApplicative Task where
instance TMonad Task where
(>>=) l r = tbind l r
(>>|) l r = l >>= \_ -> r
(>>|) l r = l >>*
[OnAction (Action "Continue") (always r)
,OnValue (ifStable (\_->r))]
instance TApplicative Maybe where
(<#>) (Just f) (Just x) = Just (f x)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment