@@ -516,6 +516,9 @@ consM action unf = Unfold step inject
516 Skip s -> Skip (Right (Stream step1 s))
516 Skip s -> Skip (Right (Stream step1 s))
517 Stop -> Stop) <$> step1 defState st
517 Stop -> Stop) <$> step1 defState st
519+-- XXX Check if "unfold (fromList [1..10])" fuses, if it doesn't we can use
520+-- rewrite rules to rewrite list enumerations to unfold enumerations.
519-- | Convert a list of pure values to a 'Stream'
522-- | Convert a list of pure values to a 'Stream'
521-- /Since: 0.8.0/
524-- /Since: 0.8.0/