diff options
Diffstat (limited to 'testsuite/tests/plugins')
| -rw-r--r-- | testsuite/tests/plugins/FrontendPlugin.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/plugins/static-plugins.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/plugins/FrontendPlugin.hs b/testsuite/tests/plugins/FrontendPlugin.hs index 7d5ed905e8..531c041f31 100644 --- a/testsuite/tests/plugins/FrontendPlugin.hs +++ b/testsuite/tests/plugins/FrontendPlugin.hs @@ -45,7 +45,7 @@ doMake opts srcs = do ++ ldInputs dflags } _ <- GHC.setSessionDynFlags dflags' - targets <- mapM (uncurry GHC.guessTarget) hs_srcs + targets <- mapM (\(src, phase) -> GHC.guessTarget src Nothing phase) hs_srcs GHC.setTargets targets ok_flag <- GHC.load LoadAllTargets diff --git a/testsuite/tests/plugins/static-plugins.hs b/testsuite/tests/plugins/static-plugins.hs index 5a4fe7d94c..b263c01b1d 100644 --- a/testsuite/tests/plugins/static-plugins.hs +++ b/testsuite/tests/plugins/static-plugins.hs @@ -65,7 +65,7 @@ main = do GHC.setTargets [] _ <- GHC.load LoadAllTargets - target <- guessTarget "static-plugins-module.hs" Nothing + target <- guessTarget "static-plugins-module.hs" Nothing Nothing setTargets [target] modifySession (\hsc_env -> hsc_env { hsc_static_plugins = the_plugins}) |