diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-05-10 08:29:39 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-05-10 08:29:39 -0700 |
| commit | e207198fce4b49f673b72916dbb4a94b9793813c (patch) | |
| tree | fd5c340bb8d1c22ba187acb9faaceee04df68652 | |
| parent | ab91b851637437844359bc6e82efff44dfb0c0ea (diff) | |
| download | haskell-e207198fce4b49f673b72916dbb4a94b9793813c.tar.gz | |
Kill foldUFM in classifyTyCon
We can get away with anyUFM here.
| -rw-r--r-- | compiler/vectorise/Vectorise/Type/Classify.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Type/Classify.hs b/compiler/vectorise/Vectorise/Type/Classify.hs index 07d8b1fa34..0140989233 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 |