diff options
Diffstat (limited to 'compiler/GHC/Data/IOEnv.hs')
| -rw-r--r-- | compiler/GHC/Data/IOEnv.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/GHC/Data/IOEnv.hs b/compiler/GHC/Data/IOEnv.hs index 850d111818..1ba59130db 100644 --- a/compiler/GHC/Data/IOEnv.hs +++ b/compiler/GHC/Data/IOEnv.hs @@ -48,6 +48,7 @@ import Control.Monad import Control.Monad.Trans.Reader import Control.Monad.Catch (MonadCatch, MonadMask, MonadThrow) import GHC.Utils.Monad +import GHC.Utils.Logger import Control.Applicative (Alternative(..)) import GHC.Exts( oneShot ) @@ -110,6 +111,11 @@ instance ContainsDynFlags env => HasDynFlags (IOEnv env) where getDynFlags = do env <- getEnv return $! extractDynFlags env +instance ContainsLogger env => HasLogger (IOEnv env) where + getLogger = do env <- getEnv + return $! extractLogger env + + instance ContainsModule env => HasModule (IOEnv env) where getModule = do env <- getEnv return $ extractModule env |