monad-extras 0.5.9 → 0.5.10

raw patch · 2 files changed

+15/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Control/Monad/Extra.hs +14/−4
• monad-extras.cabal +1/−1

@@ -265,8 +265,8 @@ fold1M _ []     = error "foldl1M: empty list" fold1M f (x:xs) = foldM f x xs --- | Assuming the function passed is associativity, divide up the work binary---   tree-wise.+-- | Assuming the function passed in is associative, divide up the work binary+-- tree-wise. assocFoldl1 :: (a -> a -> a) -> [a] -> a assocFoldl1 _ [] = error "assocFold1: empty list" assocFoldl1 _ [x] = x@@ -275,8 +275,8 @@     ([y], zs) -> f y (assocFoldl1 f zs)     (ys,  zs) -> f (assocFoldl1 f ys) (assocFoldl1 f zs) --- | Assuming the function passed is associativity, divide up the work binary---   tree-wise.+-- | Assuming the function passed in is associative, divide up the work binary+-- tree-wise. assocFoldl1M :: Monad m => (a -> a -> m a) -> [a] -> m a assocFoldl1M _ [] = error "assocFold1M: empty list" assocFoldl1M _ [x] = return x@@ -287,3 +287,13 @@         y' <- assocFoldl1M f ys         z' <- assocFoldl1M f zs         f y' z'++findM :: (Monad m, Foldable f) => (a -> m (Maybe b)) -> f a -> m (Maybe b)+findM f = loop . toList+  where+    loop [] = return Nothing+    loop (x:xs) = do+        res <- f x+        case res of+            Nothing -> loop xs+            Just r  -> return (Just r)

@@ -1,5 +1,5 @@ name:           monad-extras-version:        0.5.9+version:        0.5.10 synopsis:       Extra utility functions for working with monads -- description: homepage:       http://github.com/jwiegley/monad-extras