From 1fb1cfb67014f93e96bdc379951b41a9d6ba27c6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 24 Jul 2012 21:41:57 -0700 Subject: Don't require strict HTML blocks to begin at left margin. Technically this is required, according to the mardkown syntax document, but Markdown.pl and other markdown processors are more liberal. --- src/Text/Pandoc/Readers/Markdown.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index a6c143482..fc3afeac9 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -717,9 +717,7 @@ htmlBlock = try $ do return $ RawBlock "html" $ first ++ finalSpace ++ finalNewlines strictHtmlBlock :: Parser [Char] ParserState [Char] -strictHtmlBlock = do - failUnlessBeginningOfLine - htmlInBalanced (not . isInlineTag) +strictHtmlBlock = htmlInBalanced (not . isInlineTag) rawVerbatimBlock :: Parser [Char] ParserState String rawVerbatimBlock = try $ do -- cgit v1.2.3