diff options
Diffstat (limited to 'compiler/GHC/Tc/Utils/Monad.hs')
-rw-r--r-- | compiler/GHC/Tc/Utils/Monad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Tc/Utils/Monad.hs b/compiler/GHC/Tc/Utils/Monad.hs index 0bdfa00d5d..912ad4fbd0 100644 --- a/compiler/GHC/Tc/Utils/Monad.hs +++ b/compiler/GHC/Tc/Utils/Monad.hs @@ -557,10 +557,10 @@ withoutDynamicNow = top { hsc_dflags = dflags { dynamicNow = False} }) getEpsVar :: TcRnIf gbl lcl (TcRef ExternalPackageState) -getEpsVar = do { env <- getTopEnv; return (hsc_EPS env) } +getEpsVar = do { env <- getTopEnv; return (euc_eps (hsc_EPS env)) } getEps :: TcRnIf gbl lcl ExternalPackageState -getEps = do { env <- getTopEnv; readMutVar (hsc_EPS env) } +getEps = do { env <- getTopEnv; liftIO $ hscEPS env } -- | Update the external package state. Returns the second result of the -- modifier function. @@ -586,7 +586,7 @@ getHpt :: TcRnIf gbl lcl HomePackageTable getHpt = do { env <- getTopEnv; return (hsc_HPT env) } getEpsAndHpt :: TcRnIf gbl lcl (ExternalPackageState, HomePackageTable) -getEpsAndHpt = do { env <- getTopEnv; eps <- readMutVar (hsc_EPS env) +getEpsAndHpt = do { env <- getTopEnv; eps <- liftIO $ hscEPS env ; return (eps, hsc_HPT env) } -- | A convenient wrapper for taking a @MaybeErr SDoc a@ and throwing |