diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-05-22 20:24:18 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-05-22 20:24:18 -0700 |
| commit | 6e59053d3287b6ff5f71b7ff789c0d7215388359 (patch) | |
| tree | d8d33d21367d27a2807387f3b91c1bf7a0688a20 /src/Text | |
| parent | 9ff589359f3907816b819eab5371ea7372cafea1 (diff) | |
| download | pandoc-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.hs | 2 |
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 |