@@ -612,19 +612,19 @@ braced' :: PandocMonad m => LP m Tok -> Int -> LP m [Tok]
612612braced' getTok n =
613613 handleEgroup <|> handleBgroup <|> handleOther
614614 where handleEgroup = do
615− t <- egroup
615+ t <- symbol '}'
616616 if n == 1
617617 then return []
618618 else (t:) <$> braced' getTok (n - 1)
619619 handleBgroup = do
620− t <- bgroup
620+ t <- symbol '{'
621621 (t:) <$> braced' getTok (n + 1)
622622 handleOther = do
623623 t <- getTok
624624 (t:) <$> braced' getTok n
625625
626626braced :: PandocMonad m => LP m [Tok]
627−braced = bgroup *> braced' anyTok 1
627+braced = symbol '{' *> braced' anyTok 1
628628
629629-- URLs require special handling, because they can contain %
630630-- characters. So we retonenize comments as we go...