aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Readers/Markdown.hs
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-11-02 16:44:26 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-11-02 16:44:26 +0000
commitc02e0f76fe6ac4465322e1a6652315460fe3a1f9 (patch)
treeb844286acc9d1a864de28fcaae18b75e8bf6b4aa /Text/Pandoc/Readers/Markdown.hs
parent412315b530706ef88b534cec8cd8d32b29271a54 (diff)
downloadpandoc-c02e0f76fe6ac4465322e1a6652315460fe3a1f9.tar.gz
Revert "Markdown reader: Ignore blank line after ~~~~~~~~ in delimited code blocks."
This reverts commit 7ad17fe5cff04e0b68be5c4a08339bb53d3d176d. We will soon have a better way of handling literate haskell. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1481 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Readers/Markdown.hs')
-rw-r--r--Text/Pandoc/Readers/Markdown.hs2
1 files changed, 0 insertions, 2 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index f6d2f9805..d49dd8e04 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -380,8 +380,6 @@ keyValAttr = try $ do
codeBlockDelimited :: GenParser Char st Block
codeBlockDelimited = try $ do
(size, attr) <- codeBlockDelimiter Nothing
- optional blankline -- this helps make literate haskell possible; it requires
- -- a blank line between comment and code
contents <- manyTill anyLine (codeBlockDelimiter (Just size))
blanklines
return $ CodeBlock attr $ intercalate "\n" contents