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/HsToCore | |
| 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/HsToCore')
| -rw-r--r-- | compiler/GHC/HsToCore/Coverage.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Coverage.hs b/compiler/GHC/HsToCore/Coverage.hs index edd67e5b17..b52b4ac209 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -24,6 +24,7 @@ import GHC.Hs import GHC.Unit import GHC.Utils.Outputable as Outputable import GHC.Driver.Session +import GHC.Driver.Backend import GHC.Core.ConLike import Control.Monad import GHC.Types.SrcLoc @@ -1050,7 +1051,7 @@ coveragePasses dflags = -- | Should we produce 'Breakpoint' ticks? breakpointsEnabled :: DynFlags -> Bool -breakpointsEnabled dflags = hscTarget dflags == HscInterpreted +breakpointsEnabled dflags = backend dflags == Interpreter -- | Tickishs that only make sense when their source code location -- refers to the current file. This might not always be true due to |