@@ -131,12 +131,14 @@ fromStreamK = Stream step
131131toStreamK :: Monad m => Stream m a -> K.Stream m a
132132toStreamK (Stream step state) = go state
133133 where
134− go st = K.mkStream $ \gst yld sng stp -> do
135− r <- step gst st
136− case r of
137− Yield x s -> yld x (go s)
138− Skip s -> K.foldStreamShared gst yld sng stp $ go s
139− Stop -> stp
134+ go st = K.mkStream $ \gst yld _ stp ->
135+ let go' ss = do
136+ r <- step gst ss
137+ case r of
138+ Yield x s -> yld x (go s)
139+ Skip s -> go' s
140+ Stop -> stp
141+ in go' st
140142
141143#ifndef DISABLE_FUSION
142144{-# RULES "fromStreamK/toStreamK fusion"