diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-03 18:36:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-03 18:40:47 -0400 |
| commit | 1e929c022d3004461c238d4b8230a4ce9a5b106f (patch) | |
| tree | 4fb1c6448d71e1beb003ec73f8486cafc9c566f6 /Utility/Monad.hs | |
| parent | dda78c61b87496aa87bdb93f7e1c2203cb69610b (diff) | |
typo
Diffstat (limited to 'Utility/Monad.hs')
| -rw-r--r-- | Utility/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Monad.hs b/Utility/Monad.hs index be48072cb..95964361e 100644 --- a/Utility/Monad.hs +++ b/Utility/Monad.hs @@ -20,7 +20,7 @@ firstM p (x:xs) = do then return (Just x) else firstM p xs -{- Returns true if any value in the list satisfies the preducate, +{- Returns true if any value in the list satisfies the predicate, - stopping once one is found. -} anyM :: (Monad m) => (a -> m Bool) -> [a] -> m Bool anyM p = liftM isJust . firstM p |