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