@@ -612,19 +612,19 @@ braced' :: PandocMonad m => LP m Tok -> Int -> LP m [Tok]
612braced' getTok n =
612braced' getTok n =
613 handleEgroup <|> handleBgroup <|> handleOther
613 handleEgroup <|> handleBgroup <|> handleOther
614 where handleEgroup = do
614 where handleEgroup = do
615− t <- egroup
615+ t <- symbol '}'
616 if n == 1
616 if n == 1
617 then return []
617 then return []
618 else (t:) <$> braced' getTok (n - 1)
618 else (t:) <$> braced' getTok (n - 1)
619 handleBgroup = do
619 handleBgroup = do
620− t <- bgroup
620+ t <- symbol '{'
621 (t:) <$> braced' getTok (n + 1)
621 (t:) <$> braced' getTok (n + 1)
622 handleOther = do
622 handleOther = do
623 t <- getTok
623 t <- getTok
624 (t:) <$> braced' getTok n
624 (t:) <$> braced' getTok n
626braced :: PandocMonad m => LP m [Tok]
626braced :: PandocMonad m => LP m [Tok]
627−braced = bgroup *> braced' anyTok 1
627+braced = symbol '{' *> braced' anyTok 1
629-- URLs require special handling, because they can contain %
629-- URLs require special handling, because they can contain %
630-- characters. So we retonenize comments as we go...
630-- characters. So we retonenize comments as we go...