Shared: Count \r as space in removeLeading/TrailingSpace.
This commit is contained in:
parent
c80ffe9171
commit
ff84881e8c
1 changed files with 1 additions and 1 deletions
|
@ -163,7 +163,7 @@ removeLeadingTrailingSpace = removeLeadingSpace . removeTrailingSpace
|
|||
|
||||
-- | Remove leading space (including newlines) from string.
|
||||
removeLeadingSpace :: String -> String
|
||||
removeLeadingSpace = dropWhile (`elem` " \n\t")
|
||||
removeLeadingSpace = dropWhile (`elem` " \r\n\t")
|
||||
|
||||
-- | Remove trailing space (including newlines) from string.
|
||||
removeTrailingSpace :: String -> String
|
||||
|
|
Loading…
Add table
Reference in a new issue