X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmLex.x;fp=compiler%2Fcmm%2FCmmLex.x;h=cc477964fdae5a848945d74f34c96273e5ed924a;hp=ee05122f49276b043a93afacb37ef682b2497392;hb=f8ec4ec53ba9377254af4c0c0d3787bbe1e27be3;hpb=e9a0f76386366ef0f1554e6cf0024a06252c3013

diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x
index ee05122..cc47796 100644
--- a/compiler/cmm/CmmLex.x
+++ b/compiler/cmm/CmmLex.x
@@ -56,7 +56,7 @@ $namechar  = [$namebegin $digit]
 
 @floating_point = @decimal \. @decimal @exponent? | @decimal @exponent
 
-@escape      = \\ ([abfnrt\\\'\"\?] | x @hexadecimal | @octal)
+@escape      = \\ ([abfnrt\\\'\"\?] | x $hexit{1,2} | $octit{1,3})
 @strchar     = ($printable # [\"\\]) | @escape
 
 cmm :-