diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2022-02-03 15:45:24 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-07 11:04:43 -0500 |
| commit | b09389a6b658f8bdc5c90003d1e79d5d092fec9e (patch) | |
| tree | 5c15c7a5b543c000904d5363dbd502e07079e6a8 /compiler/GHC/HsToCore.hs | |
| parent | 4ff19981106230e1a5c8e03fde5e31e5e906c95b (diff) | |
| download | haskell-b09389a6b658f8bdc5c90003d1e79d5d092fec9e.tar.gz | |
Create `CoverageConfig`
As requested by @mpickering to collect the information we project from
`HscEnv`
Diffstat (limited to 'compiler/GHC/HsToCore.hs')
| -rw-r--r-- | compiler/GHC/HsToCore.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore.hs b/compiler/GHC/HsToCore.hs index 2b44551fba..c32f03eb97 100644 --- a/compiler/GHC/HsToCore.hs +++ b/compiler/GHC/HsToCore.hs @@ -150,8 +150,12 @@ deSugar hsc_env ; (binds_cvr, ds_hpc_info, modBreaks) <- if not (isHsBootOrSig hsc_src) then addTicksToBinds - (hsc_logger hsc_env) (hsc_dflags hsc_env) - (hsc_interp hsc_env) mod mod_loc + (CoverageConfig + { coverageConfig_logger = hsc_logger hsc_env + , coverageConfig_dynFlags = hsc_dflags hsc_env + , coverageConfig_mInterp = hsc_interp hsc_env + }) + mod mod_loc export_set (typeEnvTyCons type_env) binds else return (binds, hpcInfo, Nothing) ; (msgs, mb_res) <- initDs hsc_env tcg_env $ |