diff options
Diffstat (limited to 'compiler/GHC/Tc/Utils/Monad.hs')
-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 } |