d976404 · text · git.iko.soy

on master help sign in

Add a replace function.

d976404Bryan O'Sullivan17 years ago

Data/Text.hs+9

@@ -54,6 +54,7 @@ module Data.Text

54 , intersperse

55 , transpose

56 , reverse

57+ , replace

58 -- * Case conversion

59 -- * Case conversion

59 -- $case

60 -- $case

@@ -388,6 +389,14 @@ reverse :: Text -> Text

388reverse t = S.reverse (stream t)

389reverse t = S.reverse (stream t)

389{-# INLINE reverse #-}

390{-# INLINE reverse #-}

390

391

392+-- | /O(m)*O(n)/ Replace every occurrence of one substring with another.

393+replace :: Text -- ^ Text to search for

394+ -> Text -- ^ Replacement text

395+ -> Text -- ^ Input text

396+ -> Text

397+replace s d = intercalate d . split s

398+{-# INLINE replace #-}

399+

391-- ----------------------------------------------------------------------------

400-- ----------------------------------------------------------------------------

392-- ** Case conversions (folds)

401-- ** Case conversions (folds)

393

402