Give a more sensible type to big character literals in ExtCore (but it still looks odd to me)
import Id ( idUnfolding )
import CoreTidy ( tidyExpr )
import VarEnv ( emptyTidyEnv )
+import TysPrim ( intPrimTy )
import Literal
import Name
import CostCentre
make_lit l =
case l of
MachChar i | i <= 0xff -> C.Lchar (chr i) t
- MachChar i | otherwise -> C.Lint (toEnum i) t
+ MachChar i | otherwise -> C.Lint (toEnum i) (make_ty intPrimTy)
+ -- For 'big' characters, use an integer
MachStr s -> C.Lstring (unpackFS s) t
MachNullAddr -> C.Lint 0 t
MachInt i -> C.Lint i t