@@ -447,8 +447,9 @@ main = do
447447
448448 let tabFilter _ [] = ""
449449 tabFilter _ ('\n':xs) = '\n':(tabFilter tabStop xs)
450− tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs)
451450 -- remove DOS line endings
451+ tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs)
452+ tabFilter _ ('\r':xs) = '\n':(tabFilter tabStop xs)
452453 tabFilter spsToNextStop ('\t':xs) =
453454 if preserveTabs
454455 then '\t':(tabFilter tabStop xs)