diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-05-04 19:44:32 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-05-04 19:44:32 +0000 |
| commit | 9d03becc597e5b1ab6c8466209a1263bf8ba6f29 (patch) | |
| tree | cef87bfea13dec718e086f94316e96f16909626d /compiler/vectorise | |
| parent | d40970b835f4fddb099e67a0d4ed684ed6802d23 (diff) | |
| download | haskell-9d03becc597e5b1ab6c8466209a1263bf8ba6f29.tar.gz | |
Remove some dead code from VectType
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectType.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 90a082527e..84d9aa54fd 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -708,9 +708,9 @@ buildFromArrPRepr repr vect_tc prepr_tc arr_tc from_repr _ _ _ _ _ _ = panic "buildFromArrPRepr/from_repr" - from_prod prod@(ProdRepr { prod_components = tys - , prod_arr_tycon = tycon - , prod_arr_data_con = data_con }) + from_prod (ProdRepr { prod_components = tys + , prod_arr_tycon = tycon + , prod_arr_data_con = data_con }) expr shape_vars repr_vars @@ -719,7 +719,6 @@ buildFromArrPRepr repr vect_tc prepr_tc arr_tc = do let scrut = unwrapFamInstScrut tycon tys expr scrut_ty = mkTyConApp tycon tys - _ty <- arrReprType prod return $ Case scrut (mkWildId scrut_ty) res_ty [(DataAlt data_con, shape_vars ++ repr_vars, body)] |