Commit 61101daf authored by Bas Lijnse's avatar Bas Lijnse

Merge branch '113-the-button-generated-by-should-always-be-enabled' into 'master'

Implement the >>| combinator as in #113

Closes #113

See merge request !87
parents ce9be5db aa8ed12c
......@@ -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