aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-29 00:16:50 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-08-29 00:16:50 +0000
commit64023d8ba8fa1e8ed8bdc249fa3eb62d2f805c5a (patch)
tree8c6725aa4c91173bbd1182aad2f25161d772551c /src/Text
parent40b870375dbb593e06f8998feadbff4818d09806 (diff)
downloadpandoc-64023d8ba8fa1e8ed8bdc249fa3eb62d2f805c5a.tar.gz
Removed unneeded 'try' from noteMarker.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@950 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
-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