diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-02 12:48:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-02 12:48:52 -0400 |
| commit | f22a85ee6fa271ee799c10497ccd4ced3134f1ad (patch) | |
| tree | 62ad4acabaf6b22240b6db9300e4e56d4825b1d5 /Utility/Monad.hs | |
| parent | 21010cd4ddcea6b28ae608496d3b957bb1c36780 (diff) | |
pasto
Diffstat (limited to 'Utility/Monad.hs')
| -rw-r--r-- | Utility/Monad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Monad.hs b/Utility/Monad.hs index 802a78722..4c3c30473 100644 --- a/Utility/Monad.hs +++ b/Utility/Monad.hs @@ -46,8 +46,8 @@ ma <||> mb = ifM ma ( return True , mb ) ma <&&> mb = ifM ma ( mb , return False ) {- Same fixity as && and || -} -infixr 3 (<&&>) -infixr 2 (<||>) +infixr 3 <&&> +infixr 2 <||> {- Runs an action, passing its value to an observer before returning it. -} observe :: Monad m => (a -> m b) -> m a -> m a |