521e90e · typeable/pandoc

git.iko.soy/typeable/pandoc

Parsing: Make characterReference fail if entity not found.

commit521e90e8397b2e5485e02dd9bdf070e401ad1bc4 authorJohn MacFarlane <fiddlosopher@gmail.com> dateSun 5 Feb 2012, 23:01 (15 years ago) parente2c157f

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/Parsing.hs+2−2

@@ -342,10 +342,10 @@ escaped parser = try $ char '\\' >> parser

342342characterReference :: GenParser Char st Char

343343characterReference = try $ do

344344 char '&'

345− ent <- manyTill nonspaceChar (char ';')

345+ ent <- many1Till nonspaceChar (char ';')

346346 case lookupEntity ent of

347347 Just c -> return c

348− Nothing -> return '?'

348+ Nothing -> fail "entity not found"

349349

350350-- | Parses an uppercase roman numeral and returns (UpperRoman, number).

351351upperRoman :: GenParser Char st (ListNumberStyle, Int)