diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-18 11:08:48 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-21 20:46:40 -0500 |
| commit | 240f5bf6f53515535be5bf3ef7632aa69ae21e3e (patch) | |
| tree | dc7be78ca126c66af0aeb9f7944ebfc0ac5a211c /compiler/specialise | |
| parent | be7068a6130f394dcefbcb5d09c2944deca2270d (diff) | |
| download | haskell-240f5bf6f53515535be5bf3ef7632aa69ae21e3e.tar.gz | |
Modules: Driver (#13009)
submodule updates: nofib, haddock
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/Rules.hs | 2 | ||||
| -rw-r--r-- | compiler/specialise/SpecConstr.hs | 4 | ||||
| -rw-r--r-- | compiler/specialise/Specialise.hs | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/compiler/specialise/Rules.hs b/compiler/specialise/Rules.hs index f90ffea54d..6b96877067 100644 --- a/compiler/specialise/Rules.hs +++ b/compiler/specialise/Rules.hs @@ -57,7 +57,7 @@ import NameEnv import UniqFM import Unify ( ruleMatchTyKiX ) import BasicTypes -import DynFlags ( DynFlags ) +import GHC.Driver.Session ( DynFlags ) import Outputable import FastString import Maybes diff --git a/compiler/specialise/SpecConstr.hs b/compiler/specialise/SpecConstr.hs index d426b3fe21..f477aed400 100644 --- a/compiler/specialise/SpecConstr.hs +++ b/compiler/specialise/SpecConstr.hs @@ -30,7 +30,7 @@ import CoreUnfold ( couldBeSmallEnoughToInline ) import CoreFVs ( exprsFreeVarsList ) import CoreMonad import Literal ( litIsLifted ) -import HscTypes ( ModGuts(..) ) +import GHC.Driver.Types ( ModGuts(..) ) import WwLib ( isWorkerSmallEnough, mkWorkerArgs ) import DataCon import Coercion hiding( substCo ) @@ -44,7 +44,7 @@ import VarEnv import VarSet import Name import BasicTypes -import DynFlags ( DynFlags(..), GeneralFlag( Opt_SpecConstrKeen ) +import GHC.Driver.Session ( DynFlags(..), GeneralFlag( Opt_SpecConstrKeen ) , gopt, hasPprDebug ) import Maybes ( orElse, catMaybes, isJust, isNothing ) import Demand diff --git a/compiler/specialise/Specialise.hs b/compiler/specialise/Specialise.hs index 0872067744..60bb890461 100644 --- a/compiler/specialise/Specialise.hs +++ b/compiler/specialise/Specialise.hs @@ -39,9 +39,9 @@ import MkId ( voidArgId, voidPrimId ) import Maybes ( mapMaybe, isJust ) import MonadUtils ( foldlM ) import BasicTypes -import HscTypes +import GHC.Driver.Types import Bag -import DynFlags +import GHC.Driver.Session import Util import Outputable import FastString |