Tix fypo
--HG--
extra : convert_revision : 7ea6e463966aca9a81fe5646da28cb979650b719
commitff43615720e6c8d015b2e18b99c32d4f9415f87e
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 19 Jan 2009, 12:50 (18 years ago)
parent5c8ab4e
Data/Text/Fusion.hs+1−1
@@ -661,7 +661,7 @@ concat = L.foldr append (Stream next Done 0)
661661 next Done = Done
662662 next _ = internalError "concat"
663663
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
665665-- results.
666666concatMap :: (Char -> Stream Char) -> Stream Char -> Stream Char
667667concatMap f = foldr (append . f) (stream empty)