diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-31 12:38:56 +0200 |
|---|---|---|
| committer | Sylvain Henry <sylvain@haskus.fr> | 2020-07-31 19:32:09 +0200 |
| commit | 56a7c19337c5b2aa21d521a6d7c965174ec8379b (patch) | |
| tree | d280483bcf3e2c34d1761b0dc9ec09b863026073 /compiler/GHC/HsToCore.hs | |
| parent | 380638a33691ba43fdcd2e18bca636750e5f66f1 (diff) | |
| download | haskell-56a7c19337c5b2aa21d521a6d7c965174ec8379b.tar.gz | |
Refactor CLabel pretty-printing
Pretty-printing CLabel relies on sdocWithDynFlags that we want to remove
(#10143, #17957). It uses it to query the backend and the platform.
This patch exposes Clabel ppr functions specialised for each backend so
that backend code can directly use them.
Diffstat (limited to 'compiler/GHC/HsToCore.hs')
| -rw-r--r-- | compiler/GHC/HsToCore.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore.hs b/compiler/GHC/HsToCore.hs index 13f5ca5dd4..39301cf41b 100644 --- a/compiler/GHC/HsToCore.hs +++ b/compiler/GHC/HsToCore.hs @@ -140,7 +140,7 @@ deSugar hsc_env ; (ds_fords, foreign_prs) <- dsForeigns fords ; ds_rules <- mapMaybeM dsRule rules ; let hpc_init - | gopt Opt_Hpc dflags = hpcInitCode mod ds_hpc_info + | gopt Opt_Hpc dflags = hpcInitCode (hsc_dflags hsc_env) mod ds_hpc_info | otherwise = empty ; return ( ds_ev_binds , foreign_prs `appOL` core_prs `appOL` spec_prs |