Skip to content

Commit 8b5a1e0

Browse files
authored
Fix excessive interface recompilation caused by the Tactics plugin (#2282)
1 parent 1119def commit 8b5a1e0

File tree

1 file changed

+6
-1
lines changed

1 file changed

+6
-1
lines changed

plugins/hls-tactics-plugin/src/Wingman/StaticPlugin.hs

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13,6 +13,7 @@ import Development.IDE.GHC.Compat.Util
1313
import GHC.LanguageExtensions.Type (Extension(EmptyCase, QuasiQuotes))
1414
import Generics.SYB
1515
import Ide.Types
16+
import Plugins (purePlugin)
1617

1718
staticPlugin :: DynFlagsModifications
1819
staticPlugin = mempty
@@ -66,8 +67,12 @@ allowEmptyCaseButWithWarning =
6667
#if __GLASGOW_HASKELL__ >= 808
6768
metaprogrammingPlugin :: StaticPlugin
6869
metaprogrammingPlugin =
69-
StaticPlugin $ PluginWithArgs (defaultPlugin { parsedResultAction = worker }) []
70+
StaticPlugin $ PluginWithArgs pluginDefinition []
7071
where
72+
pluginDefinition = defaultPlugin
73+
{ parsedResultAction = worker
74+
, pluginRecompile = purePlugin
75+
}
7176
worker :: Monad m => [CommandLineOption] -> ModSummary -> HsParsedModule -> m HsParsedModule
7277
worker _ _ pm = pure $ pm { hpm_module = addMetaprogrammingSyntax $ hpm_module pm }
7378
#endif

0 commit comments

Comments
 (0)