diff options
| -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 |