mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source 
Suggestion by Daniel Trstenjak

These are not currently mixed in my code base, so no real change.
This commit is contained in:
Joey Hess 2012-11-02 11:20:27 -04:00
parent 133929eb8f
commit 21d8f96679
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/Monad.hs
View file

@ -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