aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-11-30 12:53:54 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2021-11-30 12:53:54 -0800
commit619dfa2a2a19a8433424e830a21384c7b520866a (patch)
treecef94c725c67c437f6fb9b3f2851703c032ce89a /src/Text
parent6e712fa10a9f6c2f562479acf8024f2fb529bb68 (diff)
downloadpandoc-619dfa2a2a19a8433424e830a21384c7b520866a.tar.gz
Markdown reader: don't allow `^` at beginning of link or image label.
This is reserved for footnotes. Fixes a regression introduced by 0a93acf. Closes #7723.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index b72ab22e2..0d4592599 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1775,8 +1775,7 @@ endline = try $ do
-- a reference label for a link
reference :: PandocMonad m => MarkdownParser m (F Inlines, Text)
reference = do
- -- guardDisabled Ext_footnotes <|> notFollowedBy' (string "[^")
- -- guardDisabled Ext_citations <|> notFollowedBy' (string "[@")
+ guardDisabled Ext_footnotes <|> notFollowedBy' (string "[^")
withRaw $ trimInlinesF <$> inlinesInBalancedBrackets
parenthesizedChars :: PandocMonad m => MarkdownParser m Text