diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 666265935..749963cd0 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -183,6 +183,7 @@ parseMarkdown = do st <- getState let firstPassParser = referenceKey <|> (if stateStrict st then pzero else noteBlock) + <|> liftM snd (withRaw codeBlockDelimited) <|> lineClump docMinusKeys <- liftM concat $ manyTill firstPassParser eof setInput docMinusKeys |