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 /src/Text | |
| 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.
Diffstat (limited to 'src/Text')
| -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 |