@@ -920,6 +920,8 @@ data FoldMany s fs b a
920 | FoldManyYield b (FoldMany s fs b a)
920 | FoldManyYield b (FoldMany s fs b a)
921 | FoldManyDone
921 | FoldManyDone
923+-- XXX Nested foldMany does not fuse.
923-- | Apply a fold multiple times until the stream ends. If the stream is empty
925-- | Apply a fold multiple times until the stream ends. If the stream is empty
924-- the output would be empty.
926-- the output would be empty.