Commit 05401953 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au

Remove dead code

parent deb22436
...@@ -263,10 +263,6 @@ mkSum reprs ...@@ -263,10 +263,6 @@ mkSum reprs
where where
arity = length reprs arity = length reprs
reprProducts :: Repr -> [Repr]
reprProducts (SumRepr { sum_components = rs }) = rs
reprProducts repr = [repr]
reprType :: Repr -> Type reprType :: Repr -> Type
reprType (ProdRepr { prod_tycon = tycon, prod_components = tys }) reprType (ProdRepr { prod_tycon = tycon, prod_components = tys })
= mkTyConApp tycon tys = mkTyConApp tycon tys
...@@ -276,15 +272,6 @@ reprType (SumRepr { sum_tycon = tycon, sum_components = reprs }) ...@@ -276,15 +272,6 @@ reprType (SumRepr { sum_tycon = tycon, sum_components = reprs })
arrReprType :: Repr -> VM Type arrReprType :: Repr -> VM Type
arrReprType = mkPArrayType . reprType arrReprType = mkPArrayType . reprType
reprTys :: Repr -> [[Type]]
reprTys (SumRepr { sum_components = prods }) = map prodTys prods
reprTys prod = [prodTys prod]
prodTys (ProdRepr { prod_components = tys }) = tys
reprVars :: Repr -> VM [[Var]]
reprVars = mapM (mapM (newLocalVar FSLIT("r"))) . reprTys
arrShapeTys :: Repr -> VM [Type] arrShapeTys :: Repr -> VM [Type]
arrShapeTys (SumRepr {}) arrShapeTys (SumRepr {})
= do = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment