Shared: Count \r as space in removeLeading/TrailingSpace.

This commit is contained in:
John MacFarlane 2012-09-26 09:06:34 -07:00
parent c80ffe9171
commit ff84881e8c

View file

@ -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