From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Tue, 7 Aug 2007 05:21:36 +0000 (+0000)
Subject: Remove dead code
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a2b8c86fd7594a14b141f2e69b274f99e7407406

Remove dead code
---

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