Fix up lazy intercalate.
--HG--
extra : convert_revision : 490108ad7b192df8d5aa674521501cec65935992
commit0ecaa5b331106a6e8a23bd7ddd7f7a53b85e23cf
authorBryan O'Sullivan <bos@serpentine.com>
dateMon 30 Nov 2009, 07:49 (17 years ago)
parentaf4e402
Data/Text/Lazy.hs+1−1
@@ -381,7 +381,7 @@ map f t = unstream (S.map f (stream t))
381381-- 'Text's and concatenates the list after interspersing the first
382382-- argument between each element of the list.
383383intercalate :: Text -> [Text] -> Text
384−intercalate t ts = unstream (S.intercalate (stream t) (L.map stream ts))
384+intercalate t = concat . (L.intersperse t)
385385{-# INLINE intercalate #-}
386386
387387-- | /O(n)/ The 'intersperse' function takes a character and places it