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

Don't treat enumerations specially during vectorisation for the moment

parent 6bd4bdcb
......@@ -431,7 +431,7 @@ arrReprVars repr
mkRepr :: TyCon -> VM Repr
mkRepr vect_tc
| [tys] <- rep_tys = boxedProductRepr tys
| all null rep_tys = enumRepr
-- | all null rep_tys = enumRepr
| otherwise = sumRepr =<< mapM unboxedProductRepr rep_tys
where
rep_tys = map dataConRepArgTys $ tyConDataCons vect_tc
......
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