diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-24 21:41:57 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-24 21:41:57 -0700 |
| commit | 1fb1cfb67014f93e96bdc379951b41a9d6ba27c6 (patch) | |
| tree | 15b8d460d89605cab31b234bc4e44058474f925f | |
| parent | 308436996e7311caa257000f4c010686c08a58e7 (diff) | |
| download | pandoc-1fb1cfb67014f93e96bdc379951b41a9d6ba27c6.tar.gz | |
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.
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |