Seq accumulator in tap.
commitd6c883c93a23ea9c9fa0f5abe320f99af7c34fa5
authorPranay Sashank <pranaysashank@gmail.com>
dateThu 12 Dec 2019, 14:11 (7 years ago)
parentddbdde3
src/Streamly/Internal/Data/Stream/StreamD.hs+1−1
@@ -3189,7 +3189,7 @@ tap (Fold fstep initial extract) (Stream step state) = Stream step' Nothing
31893189 r <- initial
31903190 return $ Skip (Just (r, state))
31913191
3192− step' gst (Just (acc, st)) = do
3192+ step' gst (Just (acc, st)) = acc `seq` do
31933193 r <- step gst st
31943194 case r of
31953195 Yield x s -> do