git.iko.soy/text
on master help sign in
Rename stripLeft to stripStart, and stripRight to stripEnd.

--HG-- extra : convert_revision : 6248a94338f084e4f3c9d5ee78b70d55911fd403

commit1e385a4d026b1809ad3e636189ef81635f511b5c authorBryan O'Sullivan <bos@serpentine.com> dateFri 14 Aug 2009, 06:52 (17 years ago) parent64b354a
2 files changed+12−12
compare with master
unifiedsplit
Data/Text.hs+8−8 tests/Properties.hs+4−4
Data/Text.hs+8−8
@@ -110,8 +110,8 @@ module Data.Text
110110 , dropWhileEnd
111111 , dropAround
112112 , strip
113− , stripLeft
114− , stripRight
113+ , stripStart
114+ , stripEnd
115115 , splitAt
116116 , span
117117 , break
@@ -793,16 +793,16 @@ dropAround p = dropWhile p . dropWhileEnd p
793793-- | /O(n)/ Remove leading white space from a string. Equivalent to:
794794--
795795-- > dropWhile isSpace
796−stripLeft :: Text -> Text
797−stripLeft = dropWhile isSpace
798−{-# INLINE [1] stripLeft #-}
796+stripStart :: Text -> Text
797+stripStart = dropWhile isSpace
798+{-# INLINE [1] stripStart #-}
799799
800800-- | /O(n)/ Remove trailing white space from a string. Equivalent to:
801801--
802802-- > dropWhileEnd isSpace
803−stripRight :: Text -> Text
804−stripRight = dropWhileEnd isSpace
805−{-# INLINE [1] stripRight #-}
803+stripEnd :: Text -> Text
804+stripEnd = dropWhileEnd isSpace
805+{-# INLINE [1] stripEnd #-}
806806
807807-- | /O(n)/ Remove leading and trailing white space from a string.
808808-- Equivalent to:
tests/Properties.hs+4−4
@@ -283,8 +283,8 @@ prop_TL_dropWhile p = L.dropWhile p `eqP` (unpackS . S.dropWhile p)
283283prop_S_dropWhileEnd p = T.dropWhileEnd p `eq` (S.reverse . S.dropWhile p . S.reverseStream)
284284prop_T_dropWhileEnd p = (T.reverse . T.dropWhile p . T.reverse) `eq` T.dropWhileEnd p
285285prop_T_dropAround p = (T.dropWhile p . T.dropWhileEnd p) `eq` T.dropAround p
286−prop_T_stripLeft = T.dropWhile isSpace `eq` T.stripLeft
287−prop_T_stripRight = T.dropWhileEnd isSpace `eq` T.stripRight
286+prop_T_stripStart = T.dropWhile isSpace `eq` T.stripStart
287+prop_T_stripEnd = T.dropWhileEnd isSpace `eq` T.stripEnd
288288prop_T_strip = T.dropAround isSpace `eq` T.strip
289289prop_T_splitAt n = L.splitAt n `eqP` (unpack2 . T.splitAt n)
290290prop_TL_splitAt n = L.splitAt n `eqP` (unpack2 . TL.splitAt (fromIntegral n))
@@ -553,8 +553,8 @@ tests = [
553553 ("prop_S_dropWhileEnd", mytest prop_S_dropWhileEnd),
554554 ("prop_T_dropWhileEnd", mytest prop_T_dropWhileEnd),
555555 ("prop_T_dropAround", mytest prop_T_dropAround),
556− ("prop_T_stripLeft", mytest prop_T_stripLeft),
557− ("prop_T_stripRight", mytest prop_T_stripRight),
556+ ("prop_T_stripStart", mytest prop_T_stripStart),
557+ ("prop_T_stripEnd", mytest prop_T_stripEnd),
558558 ("prop_T_strip", mytest prop_T_strip),
559559 ("prop_T_splitAt", mytest prop_T_splitAt),
560560 ("prop_T_span", mytest prop_T_span),