[commit: ghc] master: Kill foldUFM in classifyTyCon (e207198)

[git at git.haskell.org]

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

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

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

commit e207198fce4b49f673b72916dbb4a94b9793813c
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Tue May 10 08:29:39 2016 -0700

    Kill foldUFM in classifyTyCon
    
    We can get away with anyUFM here.


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

e207198fce4b49f673b72916dbb4a94b9793813c
 compiler/vectorise/Vectorise/Type/Classify.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/vectorise/Vectorise/Type/Classify.hs b/compiler/vectorise/Vectorise/Type/Classify.hs
index 07d8b1f..0140989 100644
--- a/compiler/vectorise/Vectorise/Type/Classify.hs
+++ b/compiler/vectorise/Vectorise/Type/Classify.hs
@@ -75,7 +75,7 @@ classifyTyCons convStatus parTyCons tcs = classify [] [] [] [] convStatus parTyC
         can_convert  = (isNullUFM (filterUniqSet ((`elemNameSet` pts) . tyConName) (refs `minusUFM` cs))
                         && all convertable tcs)
                        || isShowClass tcs
-        must_convert = foldUFM (||) False (intersectUFM_C const cs refs)
+        must_convert = anyUFM id (intersectUFM_C const cs refs)
                        && (not . isShowClass $ tcs)
 
         -- We currently admit Haskell 2011-style data and newtype declarations as well as type