87fb10a · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Main (tabFilter):

87fb10afiddlosopher19 years ago

src/Main.hs+2−1

@@ -447,8 +447,9 @@ main = do

447

448 let tabFilter _ [] = ""

449 tabFilter _ ('\n':xs) = '\n':(tabFilter tabStop xs)

450− tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs)

451 -- remove DOS line endings

450 -- remove DOS line endings

451+ tabFilter _ ('\r':'\n':xs) = '\n':(tabFilter tabStop xs)

452+ tabFilter _ ('\r':xs) = '\n':(tabFilter tabStop xs)

452 tabFilter spsToNextStop ('\t':xs) =

453 tabFilter spsToNextStop ('\t':xs) =

453 if preserveTabs

454 if preserveTabs

454 then '\t':(tabFilter tabStop xs)

455 then '\t':(tabFilter tabStop xs)