File tree 1 file changed +6
-1
lines changed
plugins/hls-tactics-plugin/src/Wingman
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
13
13
import GHC.LanguageExtensions.Type (Extension (EmptyCase , QuasiQuotes ))
14
14
import Generics.SYB
15
15
import Ide.Types
16
+ import Plugins (purePlugin )
16
17
17
18
staticPlugin :: DynFlagsModifications
18
19
staticPlugin = mempty
@@ -66,8 +67,12 @@ allowEmptyCaseButWithWarning =
66
67
#if __GLASGOW_HASKELL__ >= 808
67
68
metaprogrammingPlugin :: StaticPlugin
68
69
metaprogrammingPlugin =
69
- StaticPlugin $ PluginWithArgs (defaultPlugin { parsedResultAction = worker }) []
70
+ StaticPlugin $ PluginWithArgs pluginDefinition []
70
71
where
72
+ pluginDefinition = defaultPlugin
73
+ { parsedResultAction = worker
74
+ , pluginRecompile = purePlugin
75
+ }
71
76
worker :: Monad m => [CommandLineOption ] -> ModSummary -> HsParsedModule -> m HsParsedModule
72
77
worker _ _ pm = pure $ pm { hpm_module = addMetaprogrammingSyntax $ hpm_module pm }
73
78
#endif
You can’t perform that action at this time.
0 commit comments