diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-01-20 02:56:18 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-01-20 03:10:32 +0100 |
| commit | 904fe49934108fa3248bbb04ba2b8be7b2c1ee83 (patch) | |
| tree | 3e588a4933e2c2de3aea2d5297231bf5c055d3ee | |
| parent | 9cc50a0fce206cfecb973c9b061a2912b2361d3e (diff) | |
| download | haskell-wip/andreask/dmdAnalOptsNewtype.tar.gz | |
Make DmdAnalOpts a newtypewip/andreask/dmdAnalOptsNewtype
| -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 |