aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-05-22 20:24:18 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2011-05-22 20:24:18 -0700
commit6e59053d3287b6ff5f71b7ff789c0d7215388359 (patch)
treed8d33d21367d27a2807387f3b91c1bf7a0688a20 /src/Text
parent9ff589359f3907816b819eab5371ea7372cafea1 (diff)
downloadpandoc-6e59053d3287b6ff5f71b7ff789c0d7215388359.tar.gz
Forbid ()s in citation item keys.
Resolves Issue #304: problems with (@item1; @item2) because the final paren was being parsed as part of the item key.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 1b408dcb2..6f51dfd9a 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1290,7 +1290,7 @@ citeKey = try $ do
suppress_author <- option False (char '-' >> return True)
char '@'
first <- letter
- rest <- many $ (noneOf ",;]@ \t\n")
+ rest <- many $ (noneOf ",;!?[]()@ \t\n")
let key = first:rest
st <- getState
guard $ key `elem` stateCitations st