Skip to content
Snippets Groups Projects
Commit 15d20707 authored by Joachim Breitner's avatar Joachim Breitner
Browse files

Inline `stripStart` earlier

because the rules for `dropWhile` are only enabled before phase 1
parent 7930b4bf
No related branches found
No related tags found
No related merge requests found
...@@ -1295,7 +1295,7 @@ dropAround p = dropWhile p . dropWhileEnd p ...@@ -1295,7 +1295,7 @@ dropAround p = dropWhile p . dropWhileEnd p
-- > dropWhile isSpace -- > dropWhile isSpace
stripStart :: Text -> Text stripStart :: Text -> Text
stripStart = dropWhile isSpace stripStart = dropWhile isSpace
{-# INLINE [1] stripStart #-} {-# INLINE stripStart #-}
-- | /O(n)/ Remove trailing white space from a string. Equivalent to: -- | /O(n)/ Remove trailing white space from a string. Equivalent to:
-- --
......
...@@ -1241,7 +1241,7 @@ dropAround p = dropWhile p . dropWhileEnd p ...@@ -1241,7 +1241,7 @@ dropAround p = dropWhile p . dropWhileEnd p
-- > dropWhile isSpace -- > dropWhile isSpace
stripStart :: Text -> Text stripStart :: Text -> Text
stripStart = dropWhile isSpace stripStart = dropWhile isSpace
{-# INLINE [1] stripStart #-} {-# INLINE stripStart #-}
-- | /O(n)/ Remove trailing white space from a string. Equivalent to: -- | /O(n)/ Remove trailing white space from a string. Equivalent to:
-- --
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment