X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FLiteral.lhs;h=da8685e6b3f094ae51d141b6dbd787b9cba0b35a;hb=769f5c90a96742beec5e1870e68b3c7f21d9e573;hp=0ebf5bfdc985afdb63260ee9e74b07443bbd0423;hpb=8ddee6152c215e8e8ee1cbfff3481ea5bc062305;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Literal.lhs b/compiler/basicTypes/Literal.lhs
index 0ebf5bf..da8685e 100644
--- a/compiler/basicTypes/Literal.lhs
+++ b/compiler/basicTypes/Literal.lhs
@@ -339,7 +339,7 @@ absent_lits :: UniqFM Literal
 absent_lits = listToUFM [ (addrPrimTyConKey,    MachNullAddr)
             		, (charPrimTyConKey,    MachChar 'x')
             		, (intPrimTyConKey,     MachInt 0)
-            		, (int64PrimTyConKey,   MachInt 0)
+            		, (int64PrimTyConKey,   MachInt64 0)
             		, (floatPrimTyConKey,   MachFloat 0)
             		, (doublePrimTyConKey,  MachDouble 0)
             		, (wordPrimTyConKey,    MachWord 0)