diff options
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 31 |
1 files changed, 23 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 4ac5bad80..8bf9ecead 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -710,14 +710,29 @@ table = do -- inline -- -text = choice [ escapedChar, math, strong, emph, smartPunctuation, - code, ltSign, symbol, - str, linebreak, tabchar, whitespace, endline ] <?> "text" - -inline = choice [ rawLaTeXInline', escapedChar, entity, special, text ] <?> "inline" - -special = choice [ noteRef, inlineNote, link, referenceLink, rawHtmlInline', - autoLink, image ] <?> "link, inline html, note, or image" +inline = choice [ rawLaTeXInline' + , escapedChar + , entity + , noteRef + , inlineNote + , link + , referenceLink + , rawHtmlInline' + , autoLink + , image + , escapedChar + , math + , strong + , emph + , smartPunctuation + , code + , ltSign + , symbol + , str + , linebreak + , tabchar + , whitespace + , endline ] <?> "inline" escapedChar = try $ do char '\\' |