diff options
Diffstat (limited to 'compiler/GHC/Driver/Env/Types.hs')
| -rw-r--r-- | compiler/GHC/Driver/Env/Types.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Env/Types.hs b/compiler/GHC/Driver/Env/Types.hs index 63a5eb86cb..d92b0025a9 100644 --- a/compiler/GHC/Driver/Env/Types.hs +++ b/compiler/GHC/Driver/Env/Types.hs @@ -44,6 +44,11 @@ instance ContainsDynFlags HscEnv where instance HasLogger Hsc where getLogger = Hsc $ \e w -> return (hsc_logger e, w) +instance ContainsLogger HscEnv where + extractLogger h = hsc_logger h + +instance ContainsHooks HscEnv where + extractHooks h = hsc_hooks h -- | HscEnv is like 'GHC.Driver.Monad.Session', except that some of the fields are immutable. -- An HscEnv is used to compile a single module from plain Haskell source |