diff options
Diffstat (limited to 'testsuite/tests/plugins/simple-plugin')
| -rw-r--r-- | testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs b/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs index 0d7e44b4b6..89464451ee 100644 --- a/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs +++ b/testsuite/tests/plugins/simple-plugin/Simple/RemovePlugin.hs @@ -31,8 +31,8 @@ parsedPlugin [name, "parse"] _ pm = return $ pm { hpm_module = removeParsedBinding name (hpm_module pm) } parsedPlugin _ _ pm = return pm -removeParsedBinding :: String -> Located (HsModule GhcPs) - -> Located (HsModule GhcPs) +removeParsedBinding :: String -> Located HsModule + -> Located HsModule removeParsedBinding name (L l m) = (L l (m { hsmodDecls = filter (notNamedAs name) (hsmodDecls m) } )) where notNamedAs name (L _ (ValD _ (FunBind { fun_id = L _ fid }))) |