X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FLex.lhs;h=e1de35a2ee5b18f8d7ee9c2bdb72401bee39c196;hb=35de01dc19454ffcc92be863a3900a985d3cd044;hp=173b8a0ef09719acb5da183d230a222965822107;hpb=90d010080d5554c20e2d7cd643f2e94025db5f8d;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 173b8a0..e1de35a 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -703,8 +703,8 @@ readNum cont buf is_digit base conv = read buf 0
 
 is_hexdigit c 
 	=  is_digit c 
-	|| (c `geChar#` 'a'# && c `leChar#` 'h'#)
-	|| (c `geChar#` 'A'# && c `leChar#` 'H'#)
+	|| (c `geChar#` 'a'# && c `leChar#` 'f'#)
+	|| (c `geChar#` 'A'# && c `leChar#` 'F'#)
 
 hex c | is_digit c = ord# c -# ord# '0'#
       | otherwise  = ord# (to_lower c) -# ord# 'a'# +# 10#