Shared: Count \r as space in removeLeading/TrailingSpace.
commitff84881e8c1c28739232ad068f54b5de828e55d6
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateWed 26 Sep 2012, 09:06 (14 years ago)
parentc80ffe9
src/Text/Pandoc/Shared.hs+1−1
@@ -163,7 +163,7 @@ removeLeadingTrailingSpace = removeLeadingSpace . removeTrailingSpace
163163
164164-- | Remove leading space (including newlines) from string.
165165removeLeadingSpace :: String -> String
166−removeLeadingSpace = dropWhile (`elem` " \n\t")
166+removeLeadingSpace = dropWhile (`elem` " \r\n\t")
167167
168168-- | Remove trailing space (including newlines) from string.
169169removeTrailingSpace :: String -> String