git.iko.soy/typeable/pandoc
on master help sign in
Don't require strict HTML blocks to begin at left margin.
1fb1cfbJohn MacFarlane
src/Text/Pandoc/Readers/Markdown.hs+1−3
compare with master
unifiedsplit
@@ -717,9 +717,7 @@ htmlBlock = try $ do
717 return $ RawBlock "html" $ first ++ finalSpace ++ finalNewlines
717 return $ RawBlock "html" $ first ++ finalSpace ++ finalNewlines
718
718
719strictHtmlBlock :: Parser [Char] ParserState [Char]
719strictHtmlBlock :: Parser [Char] ParserState [Char]
720−strictHtmlBlock = do
721− failUnlessBeginningOfLine
722− htmlInBalanced (not . isInlineTag)
720+strictHtmlBlock = htmlInBalanced (not . isInlineTag)
723
721
724rawVerbatimBlock :: Parser [Char] ParserState String
722rawVerbatimBlock :: Parser [Char] ParserState String
725rawVerbatimBlock = try $ do
723rawVerbatimBlock = try $ do