diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 93806f18f..82a1d6bb4 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -433,12 +433,10 @@ definitionList = do para = try $ do result <- many1 inline newline - st <- getState - if stateStrict st - then choice [ lookAhead blockQuote, lookAhead header, - (blanklines >> return Null) ] - else choice [ lookAhead emacsBoxQuote >> return Null, - (blanklines >> return Null) ] + blanklines <|> do st <- getState + if stateStrict st + then lookAhead (blockQuote <|> header) >> return "" + else lookAhead emacsBoxQuote >> return "" return $ Para $ normalizeSpaces result plain = many1 inline >>= return . Plain . normalizeSpaces |