composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-16 23:10:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix up

Browse Source
This commit is contained in:
Ranjeet Kumar Ranjan 2023-08-24 17:37:11 +05:30
parent d30fb1d00b
commit cbf901e32a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/src/Streamly/Internal/Data/Builder.hs
View File

@ -32,7 +32,7 @@ newtype Builder s m a =
-- | Maps a function on the output of the fold (the type @b@).
instance Functor m => Functor (Builder s m) where
{-# INLINE fmap #-}
fmap f (Builder step1) = Builder (fmap (\ ~(a, s') -> (f a, s')) . step1)
fmap f (Builder step1) = Builder (fmap (\ (a, s) -> (f a, s)) . step1)
{-# INLINE fromPure #-}
fromPure :: Applicative m => b -> Builder s m b