diff options
| -rw-r--r-- | compiler/GHC/Core/Opt/DmdAnal.hs | 4 | ||||
| -rw-r--r-- | compiler/GHC/Core/Opt/Pipeline.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Core/Opt/DmdAnal.hs b/compiler/GHC/Core/Opt/DmdAnal.hs index fe2e66849f..51d888ef36 100644 --- a/compiler/GHC/Core/Opt/DmdAnal.hs +++ b/compiler/GHC/Core/Opt/DmdAnal.hs @@ -56,8 +56,8 @@ import GHC.Types.Unique.Set -} -- | Options for the demand analysis -data DmdAnalOpts = DmdAnalOpts - { dmd_strict_dicts :: !Bool -- ^ Use strict dictionaries +newtype DmdAnalOpts = DmdAnalOpts + { dmd_strict_dicts :: Bool -- ^ Use strict dictionaries } -- | Outputs a new copy of the Core program in which binders have been annotated diff --git a/compiler/GHC/Core/Opt/Pipeline.hs b/compiler/GHC/Core/Opt/Pipeline.hs index e6c970af9f..76d2f3d459 100644 --- a/compiler/GHC/Core/Opt/Pipeline.hs +++ b/compiler/GHC/Core/Opt/Pipeline.hs @@ -1102,7 +1102,7 @@ transferIdInfo exported_id local_id dmdAnal :: DynFlags -> FamInstEnvs -> [CoreRule] -> CoreProgram -> IO CoreProgram dmdAnal dflags fam_envs rules binds = do - let opts = DmdAnalOpts + let !opts = DmdAnalOpts { dmd_strict_dicts = gopt Opt_DictsStrict dflags } binds_plus_dmds = dmdAnalProgram opts fam_envs rules binds |