From ff84881e8c1c28739232ad068f54b5de828e55d6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 26 Sep 2012 09:06:34 -0700 Subject: Shared: Count \r as space in removeLeading/TrailingSpace. --- src/Text/Pandoc/Shared.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index d86f9a390..577f5dad0 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -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 -- cgit v1.2.3