diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-09-08 11:49:13 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-09-08 11:49:44 -0700 |
| commit | 777226296b04fa37094ecb07eb33f8d3e05af036 (patch) | |
| tree | b759f954bfc15bd871383f5ad9e37107f215fd4b /src | |
| parent | cf2506acdc721ec27ed310cd7bdad8affb28d1e5 (diff) | |
markdown+list_without_preceding_blankline:+Interpret text before list as paragraph.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 4a7789e17..122db17de 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -871,9 +871,11 @@ para = try $ do $ try $ do newline (blanklines >> return mempty) - <|> (guardDisabled Ext_blank_before_blockquote >> lookAhead blockQuote) - <|> (guardEnabled Ext_backtick_code_blocks >> lookAhead codeBlockFenced) - <|> (guardDisabled Ext_blank_before_header >> lookAhead header) + <|> (guardDisabled Ext_blank_before_blockquote >> () <$ lookAhead blockQuote) + <|> (guardEnabled Ext_backtick_code_blocks >> () <$ lookAhead codeBlockFenced) + <|> (guardDisabled Ext_blank_before_header >> () <$ lookAhead header) + <|> (guardEnabled Ext_lists_without_preceding_blankline >> + () <$ lookAhead listStart) return $ do result' <- result case B.toList result' of |