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

typo

Browse source
This commit is contained in:
Joey Hess 2011-07-16 15:09:57 -04:00
parent 13187b1ba7
commit 6a58f61d28
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility.hs
View file

@ -288,6 +288,6 @@ unlessM c a = c >>= flip unless a
(>>!) :: Monad m => m Bool -> m () -> m () (>>!) :: Monad m => m Bool -> m () -> m ()
(>>!) = unlessM (>>!) = unlessM
-- low fixity allows eg, foo bar <|> error $ "failed " ++ meep -- low fixity allows eg, foo bar >>! error $ "failed " ++ meep
infixr 0 >>? infixr 0 >>?
infixr 0 >>! infixr 0 >>!