From bb0b5e9022a3c40629713128272de1735043d91b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 13 Aug 2012 20:04:17 -0700
Subject: Markdown: Prevent parse failure on HTML blocks with -raw_html.

---
 src/Text/Pandoc/Readers/Markdown.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Readers/Markdown.hs')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 4f13740eb..652d8d357 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1165,7 +1165,8 @@ escapedChar = do
 
 ltSign :: Parser [Char] ParserState (F Inlines)
 ltSign = do
-  guardDisabled Ext_markdown_in_html_blocks
+  guardDisabled Ext_raw_html
+    <|> guardDisabled Ext_markdown_in_html_blocks
     <|> (notFollowedBy' rawHtmlBlocks >> return ())
   char '<'
   return $ return $ B.str "<"
-- 
cgit v1.2.3