diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2022-06-01 00:26:54 +0000 |
|---|---|---|
| committer | John Ericson <John.Ericson@Obsidian.Systems> | 2022-06-02 15:43:59 +0000 |
| commit | 5a3fdcfd615b502f123bb31f42d22577d44748ac (patch) | |
| tree | b7f22192f7f62c64cc98f7778689f6609c3def2b /compiler/GHC/HsToCore.hs | |
| parent | 1838c3d8ed53bdd6750037f5cbbce771369820d5 (diff) | |
| download | haskell-wip/coverage-config.tar.gz | |
HsToCore.Coverage: Purge DynFlagswip/coverage-config
Finishes what !7467 (closed) started.
Progress towards #17957
Diffstat (limited to 'compiler/GHC/HsToCore.hs')
| -rw-r--r-- | compiler/GHC/HsToCore.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/GHC/HsToCore.hs b/compiler/GHC/HsToCore.hs index 706bb0613a..6fec5e6bfe 100644 --- a/compiler/GHC/HsToCore.hs +++ b/compiler/GHC/HsToCore.hs @@ -20,6 +20,7 @@ import GHC.Prelude import GHC.Driver.Session import GHC.Driver.Config +import GHC.Driver.Config.HsToCore.Ticks import GHC.Driver.Config.HsToCore.Usage import GHC.Driver.Env import GHC.Driver.Backend @@ -155,10 +156,8 @@ deSugar hsc_env ; (binds_cvr, m_tickInfo) <- if not (isHsBootOrSig hsc_src) then addTicksToBinds - (TicksConfig - { ticksConfig_logger = hsc_logger hsc_env - , ticksConfig_dynFlags = hsc_dflags hsc_env - }) + (hsc_logger hsc_env) + (initTicksConfig (hsc_dflags hsc_env)) mod mod_loc export_set (typeEnvTyCons type_env) binds else return (binds, Nothing) |