@@ -1276,9 +1276,7 @@ simpleCiteArgs :: PandocMonad m => LP m [Citation]
12761276simpleCiteArgs = try $ do
12771277 first <- optionMaybe $ toList <$> opt
12781278 second <- optionMaybe $ toList <$> opt
1279− char '{'
1280− optional sp
1281− keys <- manyTill citationLabel (char '}')
1279+ keys <- try $ bgroup *> (manyTill citationLabel egroup)
12821280 let (pre, suf) = case (first , second ) of
12831281 (Just s , Nothing) -> (mempty, s )
12841282 (Just s , Just t ) -> (s , t )