@@ -25,7 +25,7 @@ type Traversal s t a b
2525type Traversal' s a = Traversal s s a a
2626
2727plugin :: Plugin
28−plugin = defaultPlugin {parsedResultAction = parsedPlugin, pluginRecompile = purePlugin}
28+plugin = defaultPlugin {parsedResultAction = parsedPlugin, pluginRecompile = impurePlugin}
2929
3030parsedPlugin ::
3131 [CommandLineOption] -> ModSummary -> HsParsedModule -> Hsc HsParsedModule
@@ -170,7 +170,7 @@ updateHsType ty@HsAppTy {} =
170170 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
171171updateHsType ty@HsFunTy {} =
172172 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
173−updateHsType ty@HsListTy {} =
173+updateHsType ty@HsListTy {} =
174174 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
175175updateHsType ty@HsTupleTy {} =
176176 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)