diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-12-15 12:27:29 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-12-15 12:27:29 -0800 |
| commit | 2f00f5c7c22ef879df3a21f1c3da967d106628e9 (patch) | |
| tree | d47146f8e15480885899ebb3fd2202b8ac5b0dcb /src/Text/Pandoc | |
| parent | 3b79246c85417f0936607422c5baf8d0a7544454 (diff) | |
| download | pandoc-2f00f5c7c22ef879df3a21f1c3da967d106628e9.tar.gz | |
Properly handle script blocks in strict mode.
(That is, markdown-markdown_in_html_blocks.)
Previously a spurious `<p>` tag was being added.
Closes #1093.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 8014d480c..b2e88d47e 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -902,7 +902,9 @@ plain = fmap B.plain . trimInlinesF . mconcat <$> many1 inline -- htmlElement :: MarkdownParser String -htmlElement = strictHtmlBlock <|> liftM snd (htmlTag isBlockTag) +htmlElement = rawVerbatimBlock + <|> strictHtmlBlock + <|> liftM snd (htmlTag isBlockTag) htmlBlock :: MarkdownParser (F Blocks) htmlBlock = do |