mirror of
https://github.com/composewell/streamly.git
synced 2024-08-16 23:10:36 +03:00
Fix up
This commit is contained in:
parent
d30fb1d00b
commit
cbf901e32a
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user