Disable stan plugin by default

Author: fendor

plugins/hls-stan-plugin/src/Ide/Plugin/Stan.hs

@@ -34,7 +34,8 @@ import           Ide.Types                      (PluginDescriptor (..),
                                                  PluginId, configHasDiagnostics,
                                                  defaultConfigDescriptor,
                                                  defaultPluginDescriptor,
-                                                 pluginEnabledConfig)
+                                                 pluginEnabledConfig,
+                                                 configInitialGenericConfig)
 import qualified Language.LSP.Protocol.Types    as LSP
 import           Stan.Analysis                  (Analysis (..), runAnalysis)
 import           Stan.Category                  (Category (..))
@@ -46,11 +47,17 @@ import           Stan.Observation               (Observation (..))
 descriptor :: Recorder (WithPriority Log) -> PluginId -> PluginDescriptor IdeState
 descriptor recorder plId = (defaultPluginDescriptor plId desc)
   { pluginRules = rules recorder plId
-  , pluginConfigDescriptor = defaultConfigDescriptor
+  , pluginConfigDescriptor = defConfigDescriptor
       { configHasDiagnostics = True
+      -- We disable this plugin by default because users have been complaining about
+      -- the diagnostics, see https://github.com/haskell/haskell-language-server/issues/3916
+      , configInitialGenericConfig = (configInitialGenericConfig defConfigDescriptor)
+        { plcGlobalOn = False
+        }
       }
     }
   where
+    defConfigDescriptor = defaultConfigDescriptor
     desc = "Provides stan diagnostics. Built with stan-" <> VERSION_stan
 
 newtype Log = LogShake Shake.Log deriving (Show)

plugins/hls-stan-plugin/test/Main.hs

@@ -13,6 +13,7 @@ import qualified Ide.Plugin.Stan            as Stan
 import qualified Language.LSP.Protocol.Lens as L
 import           System.FilePath
 import           Test.Hls
+import Ide.Types
 
 main :: IO ()
 main = defaultTestRunner tests
@@ -39,7 +40,20 @@ testDir :: FilePath
 testDir = "test/testdata"
 
 stanPlugin :: PluginTestDescriptor Stan.Log
-stanPlugin = mkPluginTestDescriptor Stan.descriptor "stan"
+stanPlugin = mkPluginTestDescriptor enabledStanDescriptor "stan"
+  where
+    -- We have to explicitly enable the plugin as it is disabled by default as
+    -- per request: https://github.com/haskell/haskell-language-server/issues/3916
+    --
+    enabledStanDescriptor recorder plId =
+      let stanPluginDescriptor = Stan.descriptor recorder plId
+        in  stanPluginDescriptor
+        { pluginConfigDescriptor = (pluginConfigDescriptor stanPluginDescriptor)
+            { configInitialGenericConfig = (configInitialGenericConfig (pluginConfigDescriptor stanPluginDescriptor))
+                { plcGlobalOn = True
+                }
+            }
+        }
 
 runStanSession :: FilePath -> Session a -> IO a
 runStanSession subdir =