util 0.1.3.0 → 0.1.4.0

raw patch · 2 files changed

+6/−3 lines, 2 files

Files

Util.hs +5/−2
util.cabal +1/−1

Util.hs view

@@ -48,8 +48,11 @@ untilJust mmx = mmx >>= maybe (untilJust mmx) pure  list :: b -> (a -> [a] -> b) -> [a] -> b-list y _ []     = y-list _ f (x:xs) = f x xs+list y f = list' y (liftA2 f NE.head NE.tail)++list' :: b -> (NonEmpty a -> b) -> [a] -> b+list' y _ []     = y+list' _ f (x:xs) = f (x:|xs)  infixr 9 &, ∘, ∘∘

util.cabal view

@@ -1,5 +1,5 @@ name:                util-version:             0.1.3.0+version:             0.1.4.0 synopsis:            Utilities -- description:          license:             BSD3