diff options
author | Bartosz Nitka <niteria@gmail.com> | 2016-07-08 07:40:48 -0700 |
---|---|---|
committer | Bartosz Nitka <niteria@gmail.com> | 2016-07-08 08:01:26 -0700 |
commit | 4f21a518d10abff786794cda086da0474971cdf9 (patch) | |
tree | e21f461d0854f051a3395ad6d93dd68d737fe336 | |
parent | eb3d6595735671605c5d6294a796dc0f16f784a4 (diff) | |
download | haskell-4f21a518d10abff786794cda086da0474971cdf9.tar.gz |
Kill eltsUFM in classifyTyCons
GHC Trac: #4012
-rw-r--r-- | compiler/vectorise/Vectorise/Type/Classify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise/Type/Classify.hs b/compiler/vectorise/Vectorise/Type/Classify.hs index 7963ae7375..98d9042482 100644 --- a/compiler/vectorise/Vectorise/Type/Classify.hs +++ b/compiler/vectorise/Vectorise/Type/Classify.hs @@ -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 |