From b89a44303456da6db8aedfeecc8577fcfcb78274 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 13 May 2013 10:33:31 -0700
Subject: Markdown reader:  Allow internal `+` in citation identifiers.

Closes #856.
---
 src/Text/Pandoc/Readers/Markdown.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index dcf7f1b1a..69011bc56 100644
--- 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'
-- 
cgit v1.2.3