@@ -401,8 +401,8 @@ map f m = go m
401 yieldk a r = yld (f a) (go r)
401 yieldk a r = yld (f a) (go r)
402 in foldStream (adaptState st) yieldk single stp m1
402 in foldStream (adaptState st) yieldk single stp m1
404−-- in fact use the Stream type everywhere and only use polymorphism in the high
404+-- XXX in fact use the Stream type everywhere and only use polymorphism in the
405−-- level modules/prelude.
405+-- high level modules/prelude.
406instance Monad m => Functor (Stream m) where
406instance Monad m => Functor (Stream m) where
407 fmap = map
407 fmap = map