git.iko.soy/text
on master help sign in
Rename stripLeft to stripStart, and stripRight to stripEnd.
1e385a4Bryan O'Sullivan
Data/Text.hs+8−8
compare with master
unifiedsplit
@@ -110,8 +110,8 @@ module Data.Text
110 , dropWhileEnd
110 , dropWhileEnd
111 , dropAround
111 , dropAround
112 , strip
112 , strip
113− , stripLeft
113+ , stripStart
114− , stripRight
114+ , stripEnd
115 , splitAt
115 , splitAt
116 , span
116 , span
117 , break
117 , break
@@ -793,16 +793,16 @@ dropAround p = dropWhile p . dropWhileEnd p
793-- | /O(n)/ Remove leading white space from a string. Equivalent to:
793-- | /O(n)/ Remove leading white space from a string. Equivalent to:
794--
794--
795-- > dropWhile isSpace
795-- > dropWhile isSpace
796−stripLeft :: Text -> Text
796+stripStart :: Text -> Text
797−stripLeft = dropWhile isSpace
797+stripStart = dropWhile isSpace
798−{-# INLINE [1] stripLeft #-}
798+{-# INLINE [1] stripStart #-}
799
799
800-- | /O(n)/ Remove trailing white space from a string. Equivalent to:
800-- | /O(n)/ Remove trailing white space from a string. Equivalent to:
801--
801--
802-- > dropWhileEnd isSpace
802-- > dropWhileEnd isSpace
803−stripRight :: Text -> Text
803+stripEnd :: Text -> Text
804−stripRight = dropWhileEnd isSpace
804+stripEnd = dropWhileEnd isSpace
805−{-# INLINE [1] stripRight #-}
805+{-# INLINE [1] stripEnd #-}
806
806
807-- | /O(n)/ Remove leading and trailing white space from a string.
807-- | /O(n)/ Remove leading and trailing white space from a string.
808-- Equivalent to:
808-- Equivalent to:
tests/Properties.hs+4−4
@@ -283,8 +283,8 @@ prop_TL_dropWhile p = L.dropWhile p `eqP` (unpackS . S.dropWhile p)
283prop_S_dropWhileEnd p = T.dropWhileEnd p `eq` (S.reverse . S.dropWhile p . S.reverseStream)
283prop_S_dropWhileEnd p = T.dropWhileEnd p `eq` (S.reverse . S.dropWhile p . S.reverseStream)
284prop_T_dropWhileEnd p = (T.reverse . T.dropWhile p . T.reverse) `eq` T.dropWhileEnd p
284prop_T_dropWhileEnd p = (T.reverse . T.dropWhile p . T.reverse) `eq` T.dropWhileEnd p
285prop_T_dropAround p = (T.dropWhile p . T.dropWhileEnd p) `eq` T.dropAround p
285prop_T_dropAround p = (T.dropWhile p . T.dropWhileEnd p) `eq` T.dropAround p
286−prop_T_stripLeft = T.dropWhile isSpace `eq` T.stripLeft
286+prop_T_stripStart = T.dropWhile isSpace `eq` T.stripStart
287−prop_T_stripRight = T.dropWhileEnd isSpace `eq` T.stripRight
287+prop_T_stripEnd = T.dropWhileEnd isSpace `eq` T.stripEnd
288prop_T_strip = T.dropAround isSpace `eq` T.strip
288prop_T_strip = T.dropAround isSpace `eq` T.strip
289prop_T_splitAt n = L.splitAt n `eqP` (unpack2 . T.splitAt n)
289prop_T_splitAt n = L.splitAt n `eqP` (unpack2 . T.splitAt n)
290prop_TL_splitAt n = L.splitAt n `eqP` (unpack2 . TL.splitAt (fromIntegral n))
290prop_TL_splitAt n = L.splitAt n `eqP` (unpack2 . TL.splitAt (fromIntegral n))
@@ -553,8 +553,8 @@ tests = [
553 ("prop_S_dropWhileEnd", mytest prop_S_dropWhileEnd),
553 ("prop_S_dropWhileEnd", mytest prop_S_dropWhileEnd),
554 ("prop_T_dropWhileEnd", mytest prop_T_dropWhileEnd),
554 ("prop_T_dropWhileEnd", mytest prop_T_dropWhileEnd),
555 ("prop_T_dropAround", mytest prop_T_dropAround),
555 ("prop_T_dropAround", mytest prop_T_dropAround),
556− ("prop_T_stripLeft", mytest prop_T_stripLeft),
556+ ("prop_T_stripStart", mytest prop_T_stripStart),
557− ("prop_T_stripRight", mytest prop_T_stripRight),
557+ ("prop_T_stripEnd", mytest prop_T_stripEnd),
558 ("prop_T_strip", mytest prop_T_strip),
558 ("prop_T_strip", mytest prop_T_strip),
559 ("prop_T_splitAt", mytest prop_T_splitAt),
559 ("prop_T_splitAt", mytest prop_T_splitAt),
560 ("prop_T_span", mytest prop_T_span),
560 ("prop_T_span", mytest prop_T_span),