File tree Expand file tree Collapse file tree 1 file changed +6
-1
lines changed
plugins/hls-tactics-plugin/src/Wingman Expand file tree Collapse file tree 1 file changed +6
-1
lines changed Original file line number Diff line number Diff line change @@ -13,6 +13,7 @@ import Development.IDE.GHC.Compat.Util
1313import GHC.LanguageExtensions.Type (Extension (EmptyCase , QuasiQuotes ))
1414import Generics.SYB
1515import Ide.Types
16+ import Plugins (purePlugin )
1617
1718staticPlugin :: DynFlagsModifications
1819staticPlugin = mempty
@@ -66,8 +67,12 @@ allowEmptyCaseButWithWarning =
6667#if __GLASGOW_HASKELL__ >= 808
6768metaprogrammingPlugin :: StaticPlugin
6869metaprogrammingPlugin =
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
You can’t perform that action at this time.
0 commit comments