aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 457f334b4..ad224e212 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -172,10 +172,7 @@ referenceKey = try $ do
blanklines
return $ KeyBlock label (removeTrailingSpace src, tit)
-noteMarker = try $ do
- char '['
- char '^'
- manyTill (noneOf " \t\n") (char ']')
+noteMarker = string "[^" >> manyTill (noneOf " \t\n") (char ']')
rawLine = try $ do
notFollowedBy blankline