diff options
Diffstat (limited to 'testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs')
| -rw-r--r-- | testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs b/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs index 7d8a6b909c..33c1ab78be 100644 --- a/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs +++ b/testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs @@ -15,12 +15,9 @@ plugin = defaultPlugin { driverPlugin = hooksP } hooksP :: [CommandLineOption] -> HscEnv -> IO HscEnv hooksP opts hsc_env = do - let dflags = hsc_dflags hsc_env - dflags' = dflags - { hooks = (hooks dflags) - { runMetaHook = Just (fakeRunMeta opts) } - } - hsc_env' = hsc_env { hsc_dflags = dflags' } + let hooks = hsc_hooks hsc_env + hooks' = hooks { runMetaHook = Just (fakeRunMeta opts) } + hsc_env' = hsc_env { hsc_hooks = hooks' } return hsc_env' -- This meta hook doesn't actually care running code in splices, |