summaryrefslogtreecommitdiff
path: root/testsuite/tests/plugins/hooks-plugin/Hooks
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/plugins/hooks-plugin/Hooks')
-rw-r--r--testsuite/tests/plugins/hooks-plugin/Hooks/Plugin.hs9
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,