Markdown reader: Ignore blank line after ~~~~~~~~ in delimited code blocks.
Rationale: these are useful for literate haskell, but lhs requires
a blank line before the haskell code, and we don't want spurious
blank lines in the output.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1454 788f1e2b-df1e-0410-8736-df70ead52e1b
commit7ad17fe5cff04e0b68be5c4a08339bb53d3d176d
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateTue 16 Sep 2008, 01:39 (18 years ago)
parent4d5c71e
Text/Pandoc/Readers/Markdown.hs+2
@@ -379,6 +379,8 @@ keyValAttr = try $ do
379379codeBlockDelimited :: GenParser Char st Block
380380codeBlockDelimited = try $ do
381381 (size, attr) <- codeBlockDelimiter Nothing
382+ optional blankline -- this helps make literate haskell possible; it requires
383+ -- a blank line between comment and code
382384 contents <- manyTill anyLine (codeBlockDelimiter (Just size))
383385 blanklines
384386 return $ CodeBlock attr $ intercalate "\n" contents