@@ -661,7 +661,7 @@ concat = L.foldr append (Stream next Done 0)
661 next Done = Done
661 next Done = Done
662 next _ = internalError "concat"
662 next _ = internalError "concat"
664−-- | Map a function over a stream that results in a steram and concatenate the
664+-- | Map a function over a stream that results in a stream and concatenate the
665-- results.
665-- results.
666concatMap :: (Char -> Stream Char) -> Stream Char -> Stream Char
666concatMap :: (Char -> Stream Char) -> Stream Char -> Stream Char
667concatMap f = foldr (append . f) (stream empty)
667concatMap f = foldr (append . f) (stream empty)