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

Remove dead code

parent deb22436
......@@ -263,10 +263,6 @@ mkSum reprs
where
arity = length reprs
reprProducts :: Repr -> [Repr]
reprProducts (SumRepr { sum_components = rs }) = rs
reprProducts repr = [repr]
reprType :: Repr -> Type
reprType (ProdRepr { prod_tycon = tycon, prod_components = tys })
= mkTyConApp tycon tys
......@@ -276,15 +272,6 @@ reprType (SumRepr { sum_tycon = tycon, sum_components = reprs })
arrReprType :: Repr -> VM Type
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 (SumRepr {})
= 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