@@ -890,7 +890,7 @@ foldMany1 (Fold fstep initial extract) (Stream step state) =
890 r <- step (adaptState gst) st
890 r <- step (adaptState gst) st
891 case r of
891 case r of
892 Yield x s -> consume x s fs
892 Yield x s -> consume x s fs
893− Skip s -> return $ Skip (FoldMany1Start s)
893+ Skip s -> return $ Skip (FoldMany1First fs s)
894 Stop -> return Stop
894 Stop -> return Stop
895 step' gst (FoldMany1Loop st fs) = do
895 step' gst (FoldMany1Loop st fs) = do
896 r <- step (adaptState gst) st
896 r <- step (adaptState gst) st