fd4a35c · text · git.iko.soy

git.iko.soy/text

Fix comments.

--HG-- extra : convert_revision : 11fce533d7a2c6b1ea33c77ece32921c00b28b3c

commitfd4a35c9b4216e1e1b71fd6281e6e1196f0f7d93 authorBryan O'Sullivan <bos@serpentine.com> dateSun 5 Jul 2009, 03:58 (17 years ago) parent51d643b

2 files changed+8−8

compare with master

unifiedsplit

Data/Text.hs+4−4 Data/Text/Lazy.hs+4−4

Data/Text.hs+4−4

@@ -366,8 +366,8 @@ length t = S.length (stream t)

366366

367367-- -----------------------------------------------------------------------------

368368-- * Transformations

369−-- | /O(n)/ 'map' @f @xs is the 'Text' obtained by applying @f@ to

370−-- each element of @xs@. Subject to array fusion.

369+-- | /O(n)/ 'map' @f @t@ is the 'Text' obtained by applying @f@ to

370+-- each element of @t@. Subject to array fusion.

371371map :: (Char -> Char) -> Text -> Text

372372map f t = unstream (S.map f (stream t))

373373{-# INLINE [1] map #-}

@@ -692,8 +692,8 @@ takeWhile p t@(Text arr off len) = loop 0

692692 unstream (S.takeWhile p (stream t)) = takeWhile p t

693693 #-}

694694

695−-- | /O(n)/ 'dropWhile' @p@ @xs@ returns the suffix remaining after

696−-- 'takeWhile' @p@ @xs@. This function is subject to array fusion.

695+-- | /O(n)/ 'dropWhile' @p@ @t@ returns the suffix remaining after

696+-- 'takeWhile' @p@ @t@. This function is subject to array fusion.

697697dropWhile :: (Char -> Bool) -> Text -> Text

698698dropWhile p t@(Text arr off len) = loop 0 0

699699 where loop !i !l | l >= len = empty

Data/Text/Lazy.hs+4−4

@@ -339,8 +339,8 @@ length = foldlChunks go 0

339339 S.length (stream t) = length t

340340 #-}

341341

342−-- | /O(n)/ 'map' @f @xs is the 'Text' obtained by applying @f@ to

343−-- each element of @xs@. Subject to array fusion.

342+-- | /O(n)/ 'map' @f @t@ is the 'Text' obtained by applying @f@ to

343+-- each element of @t@. Subject to array fusion.

344344map :: (Char -> Char) -> Text -> Text

345345map f t = unstream (S.map f (stream t))

346346{-# INLINE [1] map #-}

@@ -644,8 +644,8 @@ takeWhile p t0 = takeWhile' t0

644644 unstream (S.takeWhile p (stream t)) = takeWhile p t

645645 #-}

646646

647−-- | /O(n)/ 'dropWhile' @p@ @xs@ returns the suffix remaining after

648−-- 'takeWhile' @p@ @xs@. This function is subject to array fusion.

647+-- | /O(n)/ 'dropWhile' @p@ @t@ returns the suffix remaining after

648+-- 'takeWhile' @p@ @t@. This function is subject to array fusion.

649649dropWhile :: (Char -> Bool) -> Text -> Text

650650dropWhile p t0 = dropWhile' t0

651651 where dropWhile' Empty = Empty