@@ -564,14 +564,14 @@ dropWhileM f (Stream step state) = Stream step' (DropWhileDrop state)
564 Yield x s -> do
564 Yield x s -> do
567− then step' (rstState gst) (DropWhileDrop s)
567+ then step' gst (DropWhileDrop s)
568− else step' (rstState gst) (DropWhileYield x s)
568+ else step' gst (DropWhileYield x s)
569 Stop -> return Stop
569 Stop -> return Stop
571 step' gst (DropWhileNext st) = do
571 step' gst (DropWhileNext st) = do
572 r <- step (rstState gst) st
572 r <- step (rstState gst) st
573 case r of
573 case r of
574− Yield x s -> step' (rstState gst) (DropWhileYield x s)
574+ Yield x s -> step' gst (DropWhileYield x s)
575 Stop -> return Stop
575 Stop -> return Stop
577 step' _ (DropWhileYield x st) = return $ Yield x (DropWhileNext st)
577 step' _ (DropWhileYield x st) = return $ Yield x (DropWhileNext st)
@@ -592,7 +592,7 @@ filterM f (Stream step state) = Stream step' state
594 then return $ Yield x s
594 then return $ Yield x s
595− else step' (rstState gst) s
595+ else step' gst s
596 Stop -> return $ Stop
596 Stop -> return $ Stop
598{-# INLINE filter #-}
598{-# INLINE filter #-}