From a2b8c86fd7594a14b141f2e69b274f99e7407406 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 7 Aug 2007 05:21:36 +0000 Subject: [PATCH] Remove dead code --- compiler/vectorise/VectType.hs | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 871779a..7bc4cd2 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -100,7 +100,6 @@ vectTypeEnv env parr_tcs <- zipWithM buildPArrayTyCon orig_tcs vect_tcs dfuns <- mapM mkPADFun vect_tcs defTyConPAs (zip vect_tcs dfuns) - -- pa_insts <- sequence $ zipWith3 buildPAInstance orig_tcs vect_tcs parr_tcs let all_new_tcs = new_tcs ++ parr_tcs @@ -365,19 +364,6 @@ mkPADFun :: TyCon -> VM Var mkPADFun vect_tc = newExportedVar (mkPADFunOcc $ getOccName vect_tc) =<< paDFunType vect_tc -buildPAInstance :: TyCon -> TyCon -> TyCon -> VM PAInstance -buildPAInstance orig_tc vect_tc arr_tc - = do - dfun_ty <- paDFunType vect_tc - dfun <- newExportedVar (mkPADFunOcc $ getOccName vect_tc) dfun_ty - - return $ PAInstance { - painstDFun = dfun - , painstOrigTyCon = orig_tc - , painstVectTyCon = vect_tc - , painstArrTyCon = arr_tc - } - buildPADict :: PAInstance -> VM [(Var, CoreExpr)] buildPADict (PAInstance { painstDFun = dfun -- 1.7.10.4