generalize

Author: pepeiborra

hls-plugin-api/src/Ide/Types.hs

@@ -169,8 +169,9 @@ instance Show (IdeCommand st) where show _ = "<ide command>"
 
 data PluginDescriptor (ideState :: *) =
   PluginDescriptor { pluginId           :: !PluginId
-                   , pluginEnabledByDefault :: !Bool
                    -- ^ Unique identifier of the plugin.
+                   , pluginConfig       :: !PluginConfig
+                   -- ^ Initial config values
                    , pluginPriority     :: Natural
                    -- ^ Plugin handlers are called in priority order, higher priority first
                    , pluginRules        :: !(Rules ())
@@ -671,7 +672,7 @@ defaultPluginDescriptor :: PluginId -> PluginDescriptor ideState
 defaultPluginDescriptor plId =
   PluginDescriptor
     plId
-    True
+    Data.Default.def
     defaultPluginPriority
     mempty
     mempty
@@ -692,7 +693,7 @@ defaultCabalPluginDescriptor :: PluginId -> PluginDescriptor ideState
 defaultCabalPluginDescriptor plId =
   PluginDescriptor
     plId
-    True
+    Data.Default.def
     defaultPluginPriority
     mempty
     mempty
@@ -743,8 +744,8 @@ pluginEnabledConfig f pid config = plcGlobalOn pluginConfig && f pluginConfig
 
 defConfigForPlugins :: IdePlugins ideState -> Config
 defConfigForPlugins (IdePlugins pp) = defConfig $ HashMap.fromList
-            [ (pId, Data.Default.def{plcGlobalOn = pluginEnabledByDefault})
-            | PluginDescriptor{pluginId = PluginId pId, pluginEnabledByDefault} <- pp
+            [ (pId, pluginConfig)
+            | PluginDescriptor{pluginId = PluginId pId, pluginConfig} <- pp
             ]
 
 -- ---------------------------------------------------------------------