diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-24 03:15:04 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-24 03:15:04 +0000 |
| commit | 151b1170c26a325cc93b2ae151804d5a714021a3 (patch) | |
| tree | a2cd5bb9d0fdc4720e096bce5d6ac568e35e355b /compiler | |
| parent | 675aada9c8cbe8bac3f48c40b4f95caf0fdd2871 (diff) | |
| download | haskell-151b1170c26a325cc93b2ae151804d5a714021a3.tar.gz | |
Delete dead code
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 7e331f316c..8cb0a11a99 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -165,29 +165,6 @@ mkTyConRepr vect_tc mk_tc_app_maybe Nothing [ty] = ty mk_tc_app_maybe (Just tc) tys = mkTyConApp tc tys -{- -mkPRepr :: [[Type]] -> VM Type -mkPRepr tys - = do - embed_tc <- builtin embedTyCon - sum_tcs <- builtins sumTyCon - prod_tcs <- builtins prodTyCon - - let mk_sum [] = unitTy - mk_sum [ty] = ty - mk_sum tys = mkTyConApp (sum_tcs $ length tys) tys - - mk_prod [] = unitTy - mk_prod [ty] = ty - mk_prod tys = mkTyConApp (prod_tcs $ length tys) tys - - mk_embed ty = mkTyConApp embed_tc [ty] - - return . mk_sum - . map (mk_prod . map mk_embed) - $ tys --} - mkToPRepr :: TyConRepr -> [[CoreExpr]] -> [CoreExpr] mkToPRepr (TyConRepr { repr_tys = repr_tys |