X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FMkExternalCore.lhs;h=77c2299d1df2bebede4a4cb08f980de61354bfef;hb=a108d2c6cb5bde3f645bc0a68c6a742409f33634;hp=569655c727a190b327610914cbd4c96f02f372e4;hpb=6c2e162376df87192b7a65461f452a776e7f5116;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/MkExternalCore.lhs b/ghc/compiler/coreSyn/MkExternalCore.lhs
index 569655c..77c2299 100644
--- a/ghc/compiler/coreSyn/MkExternalCore.lhs
+++ b/ghc/compiler/coreSyn/MkExternalCore.lhs
@@ -26,7 +26,6 @@ import IdInfo
 import Id	( idUnfolding )
 import CoreTidy	( tidyExpr )
 import VarEnv	( emptyTidyEnv )
-import TysPrim	( intPrimTy )
 import Literal
 import Name
 import CostCentre
@@ -165,8 +164,8 @@ make_lit :: Literal -> C.Lit
 make_lit l = 
   case l of
     MachChar i | i <= 0xff -> C.Lchar (chr i) t
-    MachChar i | otherwise -> C.Lint (toEnum i) (make_ty intPrimTy)
-	-- For 'big' characters, use an integer
+    MachChar i | otherwise -> C.Lint (toEnum i) t
+	-- For big characters, use an integer literal with a character type sig
     MachStr s -> C.Lstring (unpackFS s) t
     MachNullAddr -> C.Lint 0 t
     MachInt i -> C.Lint i t