@@ -3189,7 +3189,7 @@ tap (Fold fstep initial extract) (Stream step state) = Stream step' Nothing
3189 r <- initial
3189 r <- initial
3190 return $ Skip (Just (r, state))
3190 return $ Skip (Just (r, state))
3192− step' gst (Just (acc, st)) = do
3192+ step' gst (Just (acc, st)) = acc `seq` do
3193 r <- step gst st
3193 r <- step gst st
3194 case r of
3194 case r of
3195 Yield x s -> do
3195 Yield x s -> do