parrayTyCon :: TyCon
, paTyCon :: TyCon
, paDataCon :: DataCon
+ , reprTyCon :: TyCon
+ , embedTyCon :: TyCon
+ , embedDataCon :: DataCon
+ , crossTyCon :: TyCon
+ , plusTyCon :: TyCon
, closureTyCon :: TyCon
, mkClosureVar :: Var
, applyClosureVar :: Var
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
+ reprTyCon <- dsLookupTyCon reprTyConName
+ embedTyCon <- dsLookupTyCon embedTyConName
+ let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc
+ crossTyCon <- dsLookupTyCon crossTyConName
+ plusTyCon <- dsLookupTyCon plusTyConName
closureTyCon <- dsLookupTyCon closureTyConName
mkClosureVar <- dsLookupGlobalId mkClosureName
parrayTyCon = parrayTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
+ , reprTyCon = reprTyCon
+ , embedTyCon = embedTyCon
+ , embedDataCon = embedDataCon
+ , crossTyCon = crossTyCon
+ , plusTyCon = plusTyCon
, closureTyCon = closureTyCon
, mkClosureVar = mkClosureVar
, applyClosureVar = applyClosureVar