diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-01-31 18:30:44 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-01-31 18:30:44 +0000 |
commit | 9b27f59fc265d281eefec11bf9fb6f453ea93508 (patch) | |
tree | e9cc00fba659da36478993b21030d2d7ae43734a /src/Text/Pandoc/Readers/Markdown.hs | |
parent | cdd3b67a055fa8dd6363317a62fdf18c7763b043 (diff) | |
download | pandoc-9b27f59fc265d281eefec11bf9fb6f453ea93508.tar.gz |
Gobble space after Plain blocks containing only raw html inline.
Otherwise following header blocks are not parsed correctly,
since the parser sees blank space before them. Resolves
Issue #124.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1534 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 896f5832e..18a8eda07 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -612,7 +612,7 @@ para = try $ do return $ Para $ normalizeSpaces result plain :: GenParser Char ParserState Block -plain = many1 inline >>= return . Plain . normalizeSpaces +plain = many1 inline >>~ spaces >>= return . Plain . normalizeSpaces -- -- raw html |