diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-18 06:48:36 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-18 06:48:36 +0000 |
| commit | 87fb10a316aaed3a1922708ee72293d3525c7bb4 (patch) | |
| tree | cfbb2fd90b41aae89e1a47bf01e7e750fa69aae0 | |
| parent | f8eac5b3776c4fdb2ddfc5ba9c8656b54b6e8673 (diff) | |
| download | pandoc-87fb10a316aaed3a1922708ee72293d3525c7bb4.tar.gz | |
Main (tabFilter):
Treat '\r' at end of line as newline (in addition to '\r\n' and '\n').
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1027 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 6d924847f..f985a9270 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -447,8 +447,9 @@ main = do let tabFilter _ [] = "" tabFilter _ ('\n':xs) = '\n':(tabFilter tabStop xs) - tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs) -- remove DOS line endings + tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs) + tabFilter _ ('\r':xs) = '\n':(tabFilter tabStop xs) tabFilter spsToNextStop ('\t':xs) = if preserveTabs then '\t':(tabFilter tabStop xs) |