Commit 64caa89e authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Revert "vectoriser: workaround bug in classiftTyCons"

This reverts commit acbb3dba.
parent 3ab407aa
......@@ -43,15 +43,7 @@ classifyTyCons :: UniqFM Bool -- ^type constructor conversio
-> ([TyCon], [TyCon], [TyCon]) -- ^tycons to be converted & not to be converted
classifyTyCons convStatus tcs = classify [] [] [] convStatus (tyConGroups tcs)
where
-- ******** HACKS *********
-- TyCons that were marked as 'keep' are instead put into the 'conv' list,
-- because keeping them was breaking the nbody example.
-- This needs to be fixed. -- BL 29/11/2011
-- classify conv keep ignored _ [] = (conv, keep, ignored)
classify conv keep ignored _ [] = (conv ++ keep, [], ignored)
-- ************************
classify conv keep ignored _ [] = (conv, keep, ignored)
classify conv keep ignored cs ((tcs, ds) : rs)
| can_convert && must_convert
= classify (tcs ++ conv) keep ignored (cs `addListToUFM` [(tc, True) | tc <- tcs]) rs
......
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