[make the lexer accept unboxed hexidecimal values and assign the proper unboxed types to unboxed literals in the source
John Meacham <john@repetae.net>**20070531024411] hunk ./FrontEnd/Lexer.hs 299
-    ParseMode { parseUnboxedTuples = utup, parseFFI = doFFI } <- lexParseMode
+    ParseMode { parseUnboxedValues = uval, parseUnboxedTuples = utup, parseFFI = doFFI } <- lexParseMode
hunk ./FrontEnd/Lexer.hs 326
-			return (IntTok n)
+                        rest <- getInput
+                        case rest of
+                            '#':_ | uval -> discard 1 >> return (UIntTok n)
+                            _ -> return (IntTok n)
hunk ./FrontEnd/Lexer.hs 374
-			    return (Character c2)
+                            rest <- getInput
+                            case rest of
+                                '#':_ | uval -> discard 1 >> return (UIntTok $ fromIntegral $ ord c2)
+                                _ -> return (Character c2)
hunk ./FrontEnd/Tc/Main.hs 168
-        _ -> ty `boxyMatch` (TCon (Tycon tc_Int__ kindHash))
+        _ -> ty `boxyMatch` (TCon (Tycon tc_Bits32 kindHash))
hunk ./FrontEnd/Tc/Main.hs 854
-tiLit (HsStringPrim _)  = return (TCon (Tycon tc_Addr__ kindHash))
+tiLit (HsStringPrim _)  = return (TCon (Tycon tc_BitsPtr kindHash))