aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-09-08 11:49:13 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-09-08 11:49:44 -0700
commit777226296b04fa37094ecb07eb33f8d3e05af036 (patch)
treeb759f954bfc15bd871383f5ad9e37107f215fd4b /src
parentcf2506acdc721ec27ed310cd7bdad8affb28d1e5 (diff)
downloadpandoc-777226296b04fa37094ecb07eb33f8d3e05af036.tar.gz
markdown+list_without_preceding_blankline:+Interpret text before list as paragraph.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs8
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