Kill foldUFM in classifyTyCon
authorBartosz Nitka <niteria@gmail.com>
Tue, 10 May 2016 15:29:39 +0000 (08:29 -0700)
committerBartosz Nitka <niteria@gmail.com>
Tue, 10 May 2016 15:29:39 +0000 (08:29 -0700)
We can get away with anyUFM here.

compiler/vectorise/Vectorise/Type/Classify.hs

index 07d8b1f..0140989 100644 (file)
@@ -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