git.iko.soy/typeable/haskell-stack-trace-plugin
on master help sign in
will recompilation help
58fda9fAleksey Uymanov
src/StackTrace/Plugin.hs+2−2
compare with master
unifiedsplit
@@ -25,7 +25,7 @@ type Traversal s t a b
25type Traversal' s a = Traversal s s a a
25type Traversal' s a = Traversal s s a a
26
26
27plugin :: Plugin
27plugin :: Plugin
28−plugin = defaultPlugin {parsedResultAction = parsedPlugin, pluginRecompile = purePlugin}
28+plugin = defaultPlugin {parsedResultAction = parsedPlugin, pluginRecompile = impurePlugin}
29
29
30parsedPlugin ::
30parsedPlugin ::
31 [CommandLineOption] -> ModSummary -> HsParsedModule -> Hsc HsParsedModule
31 [CommandLineOption] -> ModSummary -> HsParsedModule -> Hsc HsParsedModule
@@ -170,7 +170,7 @@ updateHsType ty@HsAppTy {} =
170 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
170 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
171updateHsType ty@HsFunTy {} =
171updateHsType ty@HsFunTy {} =
172 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
172 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
173−updateHsType ty@HsListTy {} =
173+updateHsType ty@HsListTy {} =
174 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
174 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
175updateHsType ty@HsTupleTy {} =
175updateHsType ty@HsTupleTy {} =
176 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)
176 flagASTModified $ HsQualTy xQualTy (noLoc $ appendHSC []) (noLoc ty)