git.iko.soy/typeable/pandoc
on master help sign in
Shared: Count \r as space in removeLeading/TrailingSpace.
ff84881John MacFarlane
src/Text/Pandoc/Shared.hs+1−1
compare with master
unifiedsplit
@@ -163,7 +163,7 @@ removeLeadingTrailingSpace = removeLeadingSpace . removeTrailingSpace
163
163
164-- | Remove leading space (including newlines) from string.
164-- | Remove leading space (including newlines) from string.
165removeLeadingSpace :: String -> String
165removeLeadingSpace :: String -> String
166−removeLeadingSpace = dropWhile (`elem` " \n\t")
166+removeLeadingSpace = dropWhile (`elem` " \r\n\t")
167
167
168-- | Remove trailing space (including newlines) from string.
168-- | Remove trailing space (including newlines) from string.
169removeTrailingSpace :: String -> String
169removeTrailingSpace :: String -> String