mkIntExpr :: DynFlags -> Integer -> CoreExpr        -- Result = I# i :: Int
mkIntExpr dflags i = mkConApp intDataCon  [mkIntLit dflags i]
mkIntExpr :: DynFlags -> Integer -> CoreExpr
mkIntExpr dflags i = mkConApp intDataCon  [mkIntLit dflags i]
mkIntExpr dflags i = mkConApp intDataCon  [mkIntLit dflags i]