give <&&> and <||> same fixity as && and ||

Suggestion by Daniel Trstenjak

These are not currently mixed in my code base, so no real change.

1 files changed, 4 insertions, 0 deletions

diff --git a/Utility/Monad.hs b/Utility/Monad.hs
index 6abd7ee5d..802a78722 100644
--- a/Utility/Monad.hs
+++ b/Utility/Monad.hs
@@ -45,6 +45,10 @@ ma <||> mb = ifM ma ( return True , mb )
 (<&&>) :: Monad m => m Bool -> m Bool -> m Bool
 ma <&&> mb = ifM ma ( mb , return False )
 
+{- Same fixity as && and || -}
+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
 observe observer a = do