diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-03-30 16:31:20 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-01 00:40:07 -0400 |
| commit | 85d7056a53fc4c985753864107152f02095a5d6d (patch) | |
| tree | 42317f87b4cda54d3e9f493a4cb2d6b278213594 /compiler/GHC/Tc | |
| parent | 7acfb61777caa5f44f5c34c79ef983c9b303191f (diff) | |
| download | haskell-85d7056a53fc4c985753864107152f02095a5d6d.tar.gz | |
Move the EPS into UnitEnv
Diffstat (limited to 'compiler/GHC/Tc')
| -rw-r--r-- | compiler/GHC/Tc/Utils/Monad.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Utils/Monad.hs b/compiler/GHC/Tc/Utils/Monad.hs index 912ad4fbd0..6fb31e2d7d 100644 --- a/compiler/GHC/Tc/Utils/Monad.hs +++ b/compiler/GHC/Tc/Utils/Monad.hs @@ -164,6 +164,7 @@ import GHC.Tc.Utils.TcType import GHC.Hs hiding (LIE) import GHC.Unit +import GHC.Unit.Env import GHC.Unit.External import GHC.Unit.Module.Warnings import GHC.Unit.Home.ModInfo @@ -557,7 +558,9 @@ withoutDynamicNow = top { hsc_dflags = dflags { dynamicNow = False} }) getEpsVar :: TcRnIf gbl lcl (TcRef ExternalPackageState) -getEpsVar = do { env <- getTopEnv; return (euc_eps (hsc_EPS env)) } +getEpsVar = do + env <- getTopEnv + return (euc_eps (ue_eps (hsc_unit_env env))) getEps :: TcRnIf gbl lcl ExternalPackageState getEps = do { env <- getTopEnv; liftIO $ hscEPS env } |