import VectBuiltIn
import HscTypes
-import Module ( dphSeqPackageId )
+import Module ( PackageId )
import CoreSyn
import TyCon
import DataCon
(ppr $ mkTyConApp tycon tys)
}
-initV :: HscEnv -> ModGuts -> VectInfo -> VM a -> IO (Maybe (VectInfo, a))
-initV hsc_env guts info p
+initV :: PackageId -> HscEnv -> ModGuts -> VectInfo -> VM a -> IO (Maybe (VectInfo, a))
+initV pkg hsc_env guts info p
= do
Just r <- initDs hsc_env (mg_module guts)
(mg_rdr_env guts)
go =
do
- builtins <- initBuiltins dphSeqPackageId
+ builtins <- initBuiltins pkg
builtin_vars <- initBuiltinVars builtins
builtin_tycons <- initBuiltinTyCons builtins
let builtin_datacons = initBuiltinDataCons builtins