From 87fb10a316aaed3a1922708ee72293d3525c7bb4 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 18 Sep 2007 06:48:36 +0000
Subject: 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
---
src/Main.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
(limited to 'src')
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)
--
cgit v1.2.3