485fa81 · typeable/pandoc

src/Main.hs+1−1

@@ -444,7 +444,7 @@ main = do

444 Nothing -> stateColumns defaultParserState

445

446 let tabFilter = if preserveTabs then id else (tabsToSpaces tabStop)

447− let addBlank str = str ++ "\n\n"

447+ let addBlank str = str

448 let removeCRs str = filter (/= '\r') str -- remove DOS-style line endings

449 let filter = tabFilter . addBlank . removeCRs

450 let startParserState =

src/Text/Pandoc/Readers/Markdown.hs+1−1

@@ -47,7 +47,7 @@ import Text.ParserCombinators.Parsec

47

48-- | Read markdown from an input string and return a Pandoc document.

49readMarkdown :: ParserState -> String -> Pandoc

50−readMarkdown = readWith parseMarkdown

50+readMarkdown state str = (readWith parseMarkdown) state (str ++ "\n\n")

51

52-- | Parse markdown string with default options and print result (for testing).

53testString :: String -> IO ()

src/Text/Pandoc/Readers/RST.hs+1−1

@@ -42,7 +42,7 @@ import Data.Char ( toUpper )

42

43-- | Parse reStructuredText string and return Pandoc document.

44readRST :: ParserState -> String -> Pandoc

45−readRST = readWith parseRST

45+readRST state str = (readWith parseRST) state (str ++ "\n\n")

46

47-- | Parse a string and print result (for testing).

48testString :: String -> IO ()