diff options
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index f40cfeb286..859892cfbe 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -51,6 +51,7 @@ import Maybes import OrdList import ErrUtils import GHC.Driver.Session +import GHC.Driver.Ways import Util import Outputable import FastString @@ -183,7 +184,7 @@ corePrepPgm hsc_env this_mod mod_loc binds data_tycons = initialCorePrepEnv <- mkInitialCorePrepEnv dflags hsc_env let cost_centres - | WayProf `elem` ways dflags + | WayProf `S.member` ways dflags = collectCostCentres this_mod binds | otherwise = S.empty |