@@ -509,7 +509,7 @@ bracket bef aft bet = Unfold step inject
509 return (Stream (\_ -> step2) st, r)
509 return (Stream (\_ -> step2) st, r)
511 {-# INLINE_LATE step #-}
511 {-# INLINE_LATE step #-}
512− step (Stream step2 state, v) = do
512+ step (UnStream step2 state, v) = do
513 res <- step2 defState state `MC.onException` aft v
513 res <- step2 defState state `MC.onException` aft v
514 case res of
514 case res of
515 Yield x s -> return $ Yield x (Stream step2 s, v)
515 Yield x s -> return $ Yield x (Stream step2 s, v)