From cbf901e32a8ba027a773738a3f716b22e08c7972 Mon Sep 17 00:00:00 2001 From: Ranjeet Kumar Ranjan Date: Thu, 24 Aug 2023 17:37:11 +0530 Subject: [PATCH] Fix up --- core/src/Streamly/Internal/Data/Builder.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/Streamly/Internal/Data/Builder.hs b/core/src/Streamly/Internal/Data/Builder.hs index 8983eeeac..4b22f8584 100644 --- a/core/src/Streamly/Internal/Data/Builder.hs +++ b/core/src/Streamly/Internal/Data/Builder.hs @@ -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