diff options
Diffstat (limited to 'Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs index 7ac78f2af..e6f09f97a 100644 --- a/Text/Pandoc/Readers/Markdown.hs +++ b/Text/Pandoc/Readers/Markdown.hs @@ -230,7 +230,7 @@ block = do st <- getState choice (if stateStrict st then [ header - , codeBlock + , codeBlockIndented , blockQuote , hrule , bulletList @@ -239,9 +239,10 @@ block = do , para , plain , nullBlock ] - else [ header + else [ codeBlockDelimited + , header , table - , codeBlock + , codeBlockIndented , blockQuote , hrule , bulletList @@ -295,8 +296,6 @@ hrule = try $ do indentedLine = indentSpaces >> manyTill anyChar newline >>= return . (++ "\n") -codeBlock = codeBlockIndented <|> codeBlockDelimited - codeBlockDelimiter len = try $ do size <- case len of Just l -> count l (char '~') >> many (char '~') >> return l |