From a702d292ec25fb54d7c2edc151e29412a2a54de6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 2 Nov 2012 11:20:27 -0400
Subject: give <&&> and <||> same fixity as && and ||

Suggestion by Daniel Trstenjak

These are not currently mixed in my code base, so no real change.
---
 Utility/Monad.hs | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
cgit v1.2.3