Bryan O'Sullivan committed e8d7d30

Rewrite intercalate to not use fusion.

Comments (0)

Files changed (1)

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