diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-26 09:06:34 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-26 09:06:34 -0700 |
| commit | ff84881e8c1c28739232ad068f54b5de828e55d6 (patch) | |
| tree | 884497ffb09c6c910f04bbf3479a93cfb00fdd73 /src/Text/Pandoc | |
| parent | c80ffe9171391f1a15d0c4b069f4b994c1aef050 (diff) | |
| download | pandoc-ff84881e8c1c28739232ad068f54b5de828e55d6.tar.gz | |
Shared: Count \r as space in removeLeading/TrailingSpace.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |