diff options
| -rw-r--r-- | src/Text/Pandoc/CharacterReferences.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/CharacterReferences.hs b/src/Text/Pandoc/CharacterReferences.hs index b0f4f6019..ac517ddf0 100644 --- a/src/Text/Pandoc/CharacterReferences.hs +++ b/src/Text/Pandoc/CharacterReferences.hs @@ -50,7 +50,7 @@ numRef = do return $ chr $ num hexNum :: GenParser Char st Int -hexNum = oneOf "Xx" >> many1 hexDigit >>= return . read . ("0x" ++) +hexNum = oneOf "Xx" >> many1 hexDigit >>= return . read . (\xs -> '0':'x':xs) decNum :: GenParser Char st Int decNum = many1 digit >>= return . read |