diff options
Diffstat (limited to 'compiler/GHC/Driver/Pipeline/Monad.hs')
| -rw-r--r-- | compiler/GHC/Driver/Pipeline/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Pipeline/Monad.hs b/compiler/GHC/Driver/Pipeline/Monad.hs index 8440141f2c..3f6716a954 100644 --- a/compiler/GHC/Driver/Pipeline/Monad.hs +++ b/compiler/GHC/Driver/Pipeline/Monad.hs @@ -144,7 +144,7 @@ instance HasLogger CompPipeline where setDynFlags :: DynFlags -> CompPipeline () setDynFlags dflags = P $ \_env state -> - return (state{hsc_env= (hsc_env state){ hsc_dflags = dflags }}, ()) + return (state{ hsc_env = hscSetFlags dflags (hsc_env state)}, ()) setPlugins :: [LoadedPlugin] -> [StaticPlugin] -> CompPipeline () setPlugins dyn static = P $ \_env state -> |