[commit: ghc] master: Kill eltsUFM in classifyTyCons (4f21a51)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4f21a518d10abff786794cda086da0474971cdf9/ghc

>---------------------------------------------------------------

commit 4f21a518d10abff786794cda086da0474971cdf9
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Fri Jul 8 07:40:48 2016 -0700

    Kill eltsUFM in classifyTyCons
    
    GHC Trac: #4012


>---------------------------------------------------------------

4f21a518d10abff786794cda086da0474971cdf9
 compiler/vectorise/Vectorise/Type/Classify.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/vectorise/Vectorise/Type/Classify.hs b/compiler/vectorise/Vectorise/Type/Classify.hs
index 7963ae7..98d9042 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