1
{-# LANGUAGE CPP, DeriveDataTypeable #-}
4
-- Module : Data.Text.Util
5
-- Copyright : 2010 Bryan O'Sullivan
8
-- Maintainer : bos@serpentine.com
9
-- Stability : experimental
19
-- | A lazier version of Data.List.intersperse. The other version
20
-- causes space leaks!
21
intersperse :: a -> [a] -> [a]
23
intersperse sep (x:xs) = x : go xs
26
go (y:ys) = sep : y: go ys
27
{-# INLINE intersperse #-}