ed22c1c · streamly · git.iko.soy

git.iko.soy/streamly

minor fix use mempty instead of empty in Monoid fold

commited22c1c907fd38369f43720c8f519331302b64e6 authorHarendra Kumar <harendra.kumar@gmail.com> dateTue 29 Aug 2017, 00:18 (9 years ago) parent5cdbf19

1 file changed+1−1

unifiedsplit

src/Asyncly/AsyncT.hs+1−1

@@ -511,4 +511,4 @@ for xs f = foldr (<|>) empty $ map f xs

511511-- XXX rename to fromList?

512512{-# INLINABLE each #-}

513513each :: MonadAsync m => [a] -> AsyncT m a

514−each xs = foldr (<>) empty $ map return xs

514+each xs = foldr (<>) mempty $ map return xs