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