Commit 4f21a518 authored by niteria's avatar niteria
Browse files

Kill eltsUFM in classifyTyCons

GHC Trac: #4012
parent eb3d6595
......@@ -67,8 +67,8 @@ classifyTyCons convStatus parTyCons tcs = classify [] [] [] [] convStatus parTyC
refs = ds `delListFromUniqSet` tcs
-- the tycons that directly or indirectly depend on parallel arrays
tcs_par | any ((`elemNameSet` parTyCons) . tyConName) . eltsUFM $ refs = tcs
| otherwise = []
tcs_par | anyUFM ((`elemNameSet` parTyCons) . tyConName) refs = tcs
| otherwise = []
pts' = pts `extendNameSetList` map tyConName tcs_par
......
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