Markdown: Prevent parse failure on HTML blocks with -raw_html.
commitbb0b5e9022a3c40629713128272de1735043d91b
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 13 Aug 2012, 20:04 (14 years ago)
parent76edb6b
src/Text/Pandoc/Readers/Markdown.hs+2−1
@@ -1165,7 +1165,8 @@ escapedChar = do
11651165
11661166ltSign :: Parser [Char] ParserState (F Inlines)
11671167ltSign = do
1168− guardDisabled Ext_markdown_in_html_blocks
1168+ guardDisabled Ext_raw_html
1169+ <|> guardDisabled Ext_markdown_in_html_blocks
11691170 <|> (notFollowedBy' rawHtmlBlocks >> return ())
11701171 char '<'
11711172 return $ return $ B.str "<"