diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-11-17 20:36:59 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-17 20:36:59 -0800 |
| commit | bf3fea0a8cc65d140db55fc1af88be17d4df3e8b (patch) | |
| tree | 74b054cb79d0e91efa0b9b115480f740b7752bde /src/Text/Pandoc/Readers/Markdown.hs | |
| parent | d464757132c028386cbeca0e0e3591dce1766bbd (diff) | |
| download | pandoc-bf3fea0a8cc65d140db55fc1af88be17d4df3e8b.tar.gz | |
Markdown reader: fix regression with example list references.
This affects example list references followed by dashes.
Introduced by commit b8d17f7.
Closes #6855.
Diffstat (limited to 'src/Text/Pandoc/Readers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 02f1f212f..5888bf095 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1544,7 +1544,11 @@ exampleRef :: PandocMonad m => MarkdownParser m (F Inlines) exampleRef = try $ do guardEnabled Ext_example_lists char '@' - lab <- many1Char (alphaNum <|> oneOf "-_") + lab <- mconcat . map T.pack <$> + many (many1 alphaNum <|> + try (do c <- char '_' <|> char '-' + cs <- many1 alphaNum + return (c:cs))) return $ do st <- askF return $ case M.lookup lab (stateExamples st) of |