git.iko.soy/text
on builder help sign in
text/Data/Text/Util.hs
27 lines 588 B history raw
1{-# LANGUAGE CPP, DeriveDataTypeable #-}
3-- |
4-- Module : Data.Text.Util
5-- Copyright : 2010 Bryan O'Sullivan
6--
7-- License : BSD-style
8-- Maintainer : bos@serpentine.com
9-- Stability : experimental
10-- Portability : GHC
11--
12-- Useful functions.
14module Data.Text.Util
15 (
16 intersperse
17 ) where
19-- | A lazier version of Data.List.intersperse. The other version
20-- causes space leaks!
21intersperse :: a -> [a] -> [a]
22intersperse _ [] = []
23intersperse sep (x:xs) = x : go xs
24 where
25 go [] = []
26 go (y:ys) = sep : y: go ys
27{-# INLINE intersperse #-}