diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2021-03-29 14:40:28 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-01 00:40:07 -0400 |
commit | 751b21448c8894f603d1a3848ef5f51e7e80b3fe (patch) | |
tree | 369f2aaf5d66ee047be0d88ae594d8466cae0007 /compiler/GHC/Tc/Utils/Monad.hs | |
parent | bddecda1a4c96da21e3f5211743ce5e4c78793a2 (diff) | |
download | haskell-751b21448c8894f603d1a3848ef5f51e7e80b3fe.tar.gz |
Encapsulate the EPS IORef in a newtype
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 |