diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-06-29 22:36:40 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-22 20:19:59 -0400 |
| commit | f7cc431341e5b5b31758eecc8504cae8b2390c10 (patch) | |
| tree | 7404d90376432d5a311a7fc6355b02085a1a5367 /compiler/GHC/Iface/Tidy.hs | |
| parent | 735f9d6bac316a0c1c68a8b49bba465f07b01cdd (diff) | |
| download | haskell-f7cc431341e5b5b31758eecc8504cae8b2390c10.tar.gz | |
Replace HscTarget with Backend
They both have the same role and Backend name is more explicit.
Metric Decrease:
T3064
Update Haddock submodule
Diffstat (limited to 'compiler/GHC/Iface/Tidy.hs')
| -rw-r--r-- | compiler/GHC/Iface/Tidy.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Tidy.hs b/compiler/GHC/Iface/Tidy.hs index 5121c11681..3c3fb4b488 100644 --- a/compiler/GHC/Iface/Tidy.hs +++ b/compiler/GHC/Iface/Tidy.hs @@ -18,6 +18,7 @@ import GHC.Prelude import GHC.Tc.Types import GHC.Driver.Session +import GHC.Driver.Backend import GHC.Core import GHC.Core.Unfold import GHC.Core.FVs @@ -383,10 +384,10 @@ tidyProgram hsc_env (ModGuts { mg_module = mod sptCreateStaticBinds hsc_env mod tidy_binds ; let { spt_init_code = sptModuleInitCode mod spt_entries ; add_spt_init_code = - case hscTarget dflags of + case backend dflags of -- If we are compiling for the interpreter we will insert -- any necessary SPT entries dynamically - HscInterpreted -> id + Interpreter -> id -- otherwise add a C stub to do so _ -> (`appendStubC` spt_init_code) |