parrayTyCon :: TyCon
, paTyCon :: TyCon
, paDataCon :: DataCon
- , reprTyCon :: TyCon
+ , preprTyCon :: TyCon
, embedTyCon :: TyCon
, embedDataCon :: DataCon
, crossTyCon :: TyCon
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
- reprTyCon <- dsLookupTyCon reprTyConName
+ preprTyCon <- dsLookupTyCon preprTyConName
embedTyCon <- dsLookupTyCon embedTyConName
let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc
crossTyCon <- dsLookupTyCon crossTyConName
parrayTyCon = parrayTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
- , reprTyCon = reprTyCon
+ , preprTyCon = preprTyCon
, embedTyCon = embedTyCon
, embedDataCon = embedDataCon
, crossTyCon = crossTyCon