util 0.1.7.0 → 0.1.8.0

raw patch · 2 files changed

+4/−1 lines, 2 files

Files

Util.hs +3/−0
util.cabal +1/−1

Util.hs view

@@ -135,6 +135,9 @@ foldMapA :: (Applicative p, Monoid b, Foldable f) => (a -> p b) -> f a -> p b foldMapA f = foldr (liftA2 (<>) . f) (pure mempty) +altMap :: (Alternative p, Foldable f) => (a -> p b) -> f a -> p b+altMap f = foldr ((<|>) . f) empty+ iterateM :: Monad m => Natural -> (a -> m a) -> a -> m (NonEmpty a) iterateM 0 _ x = pure (x:|[]) iterateM k f x = (x <|) <$> (f x >>= iterateM (pred k) f)

util.cabal view

@@ -1,5 +1,5 @@ name:                util-version:             0.1.7.0+version:             0.1.8.0 synopsis:            Utilities -- description:          license:             BSD3