Fix performance issue in "bracket"
commit33e6fd015f84304ab9936aaf3b84420a0b3326c0
authorHarendra Kumar <harendra.kumar@gmail.com>
dateWed 9 Oct 2019, 00:09 (7 years ago)
parent1305145
src/Streamly/Internal/Data/Unfold.hs+1−1
@@ -509,7 +509,7 @@ bracket bef aft bet = Unfold step inject
509509 return (Stream (\_ -> step2) st, r)
510510
511511 {-# INLINE_LATE step #-}
512− step (Stream step2 state, v) = do
512+ step (UnStream step2 state, v) = do
513513 res <- step2 defState state `MC.onException` aft v
514514 case res of
515515 Yield x s -> return $ Yield x (Stream step2 s, v)