@@ -381,7 +381,7 @@ map f t = unstream (S.map f (stream t))
381-- 'Text's and concatenates the list after interspersing the first
381-- 'Text's and concatenates the list after interspersing the first
382-- argument between each element of the list.
382-- argument between each element of the list.
383intercalate :: Text -> [Text] -> Text
383intercalate :: Text -> [Text] -> Text
384−intercalate t ts = unstream (S.intercalate (stream t) (L.map stream ts))
384+intercalate t = concat . (L.intersperse t)
385{-# INLINE intercalate #-}
385{-# INLINE intercalate #-}
387-- | /O(n)/ The 'intersperse' function takes a character and places it
387-- | /O(n)/ The 'intersperse' function takes a character and places it