@@ -1276,9 +1276,7 @@ simpleCiteArgs :: PandocMonad m => LP m [Citation]
1276simpleCiteArgs = try $ do
1276simpleCiteArgs = try $ do
1277 first <- optionMaybe $ toList <$> opt
1277 first <- optionMaybe $ toList <$> opt
1278 second <- optionMaybe $ toList <$> opt
1278 second <- optionMaybe $ toList <$> opt
1281− keys <- manyTill citationLabel (char '}')
1279+ keys <- try $ bgroup *> (manyTill citationLabel egroup)
1282 let (pre, suf) = case (first , second ) of
1280 let (pre, suf) = case (first , second ) of
1283 (Just s , Nothing) -> (mempty, s )
1281 (Just s , Nothing) -> (mempty, s )
1284 (Just s , Just t ) -> (s , t )
1282 (Just s , Just t ) -> (s , t )