zipWithM_ defTyCon keep_tcs keep_tcs
zipWithM_ defDataCon keep_dcs keep_dcs
vect_tcs <- vectTyConDecls conv_tcs
zipWithM_ defTyCon keep_tcs keep_tcs
zipWithM_ defDataCon keep_dcs keep_dcs
vect_tcs <- vectTyConDecls conv_tcs
- parr_tcs1 <- mapM (\tc -> buildPArrayTyCon (tyConName tc) tc) keep_tcs
- parr_tcs2 <- zipWithM (buildPArrayTyCon . tyConName) conv_tcs vect_tcs
+ parr_tcs1 <- zipWithM buildPArrayTyCon keep_tcs keep_tcs
+ parr_tcs2 <- zipWithM buildPArrayTyCon conv_tcs vect_tcs
-buildPArrayTyCon :: Name -> TyCon -> VM TyCon
-buildPArrayTyCon orig_name vect_tc = fixV $ \repr_tc ->
+buildPArrayTyCon :: TyCon -> TyCon -> VM TyCon
+buildPArrayTyCon orig_tc vect_tc = fixV $ \repr_tc ->
do
name' <- cloneName mkPArrayTyConOcc orig_name
parent <- buildPArrayParentInfo orig_name vect_tc repr_tc
do
name' <- cloneName mkPArrayTyConOcc orig_name
parent <- buildPArrayParentInfo orig_name vect_tc repr_tc