diff options
Diffstat (limited to 'testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs')
| -rw-r--r-- | testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs index 172a052817..e918b02cc9 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs +++ b/testsuite/tests/plugins/simple-plugin/Simple/SourcePlugin.hs @@ -25,14 +25,13 @@ plugin = defaultPlugin { parsedResultAction = parsedPlugin , renamedResultAction = renamedAction } -parsedPlugin :: [CommandLineOption] -> ModSummary -> HsParsedModule - -> (Messages PsWarning, Messages PsError) - -> Hsc (HsParsedModule, (Messages PsWarning, Messages PsError)) -parsedPlugin opts _ pm msgs +parsedPlugin :: [CommandLineOption] -> ModSummary + -> ParsedResult -> Hsc ParsedResult +parsedPlugin opts _ parsed = do liftIO $ putStrLn $ "parsePlugin(" ++ intercalate "," opts ++ ")" -- TODO: Remove #20791 liftIO $ hFlush stdout - return (pm, msgs) + return parsed renamedAction :: [CommandLineOption] -> TcGblEnv -> HsGroup GhcRn |