Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Improved efficiency of hexNum parser.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1568 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-04-29 19:29:03 +00:00
parent d4d99d281d
commit 532e52f2d4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/CharacterReferences.hs
View file

@ -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