Improved efficiency of hexNum parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1568 788f1e2b-df1e-0410-8736-df70ead52e1b
commit532e52f2d4ff7006d81a6bf0cab8debff34c5b98
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateWed 29 Apr 2009, 19:29 (17 years ago)
parentd4d99d2
src/Text/Pandoc/CharacterReferences.hs+1−1
@@ -50,7 +50,7 @@ numRef = do
5050 return $ chr $ num
5151
5252hexNum :: GenParser Char st Int
53−hexNum = oneOf "Xx" >> many1 hexDigit >>= return . read . ("0x" ++)
53+hexNum = oneOf "Xx" >> many1 hexDigit >>= return . read . (\xs -> '0':'x':xs)
5454
5555decNum :: GenParser Char st Int
5656decNum = many1 digit >>= return . read