diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-04-29 19:29:03 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-04-29 19:29:03 +0000 |
commit | 532e52f2d4ff7006d81a6bf0cab8debff34c5b98 (patch) | |
tree | 5be81a75a6f29a5e1e4af0f7a52d8c6aede0b1d3 /src/Text/Pandoc/CharacterReferences.hs | |
parent | d4d99d281df184eed3c67063fe64b542a154a509 (diff) | |
download | pandoc-532e52f2d4ff7006d81a6bf0cab8debff34c5b98.tar.gz |
Improved efficiency of hexNum parser.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1568 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/CharacterReferences.hs')
-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 |