From 532e52f2d4ff7006d81a6bf0cab8debff34c5b98 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Wed, 29 Apr 2009 19:29:03 +0000
Subject: [PATCH] Improved efficiency of hexNum parser.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1568 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/CharacterReferences.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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