diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Types.hs')
-rw-r--r-- | compiler/GHC/HsToCore/Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/HsToCore/Types.hs b/compiler/GHC/HsToCore/Types.hs index 68da67d21e..aeeeb0c530 100644 --- a/compiler/GHC/HsToCore/Types.hs +++ b/compiler/GHC/HsToCore/Types.hs @@ -12,6 +12,7 @@ import GHC.Types.CostCentre.State import GHC.Types.Name.Env import GHC.Types.SrcLoc import GHC.Types.Var +import GHC.Types.Name.Reader (GlobalRdrEnv) import GHC.Hs (LForeignDecl, HsExpr, GhcTc) import GHC.Tc.Types (TcRnIf, IfGblEnv, IfLclEnv, CompleteMatches) import GHC.HsToCore.Pmc.Types (Nablas) @@ -42,6 +43,9 @@ data DsGblEnv = DsGblEnv { ds_mod :: Module -- For SCC profiling , ds_fam_inst_env :: FamInstEnv -- Like tcg_fam_inst_env + , ds_gbl_rdr_env :: GlobalRdrEnv -- needed *only* to know what newtype + -- constructors are in scope during + -- pattern-match satisfiability checking , ds_unqual :: PrintUnqualified , ds_msgs :: IORef Messages -- Warning messages , ds_if_env :: (IfGblEnv, IfLclEnv) -- Used for looking up global, |