Markdown reader: Allow internal + in citation identifiers.

Closes jgm#856.
hblu · May 13, 2013 · b89a443 · b89a443
1 parent d097734
commit b89a443
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1705,7 +1705,7 @@ citeKey = try $ do
   char '@'
   first <- letter
   let internal p = try $ p >>~ lookAhead (letter <|> digit)
-  rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_?<>~/")
+  rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_+?<>~/")
   let key = first:rest
   citations' <- map CSL.refId <$> getOption readerReferences
   guard $ key `elem` citations'