defaultPluginDescripor - take PluginId as argument

Author: pepeiborra

src/Ide/Plugin/Brittany.hs

@@ -19,9 +19,8 @@ import           System.FilePath
 import           Data.Maybe (maybeToList)
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginFormattingProvider = Just provider
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginFormattingProvider = Just provider
   }
 
 -- | Formatter provider of Brittany.

src/Ide/Plugin/Example.hs

@@ -41,9 +41,8 @@ import Text.Regex.TDFA.Text()
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginRules = exampleRules
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginRules = exampleRules
   , pluginCommands = [PluginCommand "codelens.todo" "example adding" addTodoCmd]
   , pluginCodeActionProvider = Just codeAction
   , pluginCodeLensProvider   = Just codeLens

src/Ide/Plugin/Example2.hs

@@ -41,9 +41,8 @@ import Text.Regex.TDFA.Text()
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginRules = exampleRules
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginRules = exampleRules
   , pluginCommands = [PluginCommand "codelens.todo" "example adding" addTodoCmd]
   , pluginCodeActionProvider = Just codeAction
   , pluginCodeLensProvider   = Just codeLens

src/Ide/Plugin/Floskell.hs

@@ -25,9 +25,8 @@ import           Text.Regex.TDFA.Text()
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginFormattingProvider = Just provider
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginFormattingProvider = Just provider
   }
 
 -- ---------------------------------------------------------------------

src/Ide/Plugin/GhcIde.hs

@@ -20,9 +20,8 @@ import Text.Regex.TDFA.Text()
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginCommands = [PluginCommand (CommandId "typesignature.add") "adds a signature" commandAddSignature]
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginCommands = [PluginCommand (CommandId "typesignature.add") "adds a signature" commandAddSignature]
   , pluginCodeActionProvider = Just codeAction'
   , pluginCodeLensProvider   = Just codeLens'
   , pluginHoverProvider      = Just hover'

src/Ide/Plugin/Ormolu.hs

@@ -29,9 +29,8 @@ import           Text.Regex.TDFA.Text()
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginFormattingProvider = Just provider
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginFormattingProvider = Just provider
   }
 
 -- ---------------------------------------------------------------------

src/Ide/Plugin/Pragmas.hs

@@ -24,9 +24,8 @@ import           Language.Haskell.LSP.Types
 -- ---------------------------------------------------------------------
 
 descriptor :: PluginId -> PluginDescriptor
-descriptor plId = defaultPluginDescriptor
-  { pluginId = plId
-  , pluginCommands = commands
+descriptor plId = (defaultPluginDescriptor plId)
+  { pluginCommands = commands
   , pluginCodeActionProvider = Just codeActionProvider
   }
 

src/Ide/Types.hs

@@ -63,10 +63,10 @@ data PluginDescriptor =
                    , pluginRenameProvider     :: !(Maybe RenameProvider)
                    }
 
-defaultPluginDescriptor :: PluginDescriptor
-defaultPluginDescriptor =
+defaultPluginDescriptor :: PluginId -> PluginDescriptor
+defaultPluginDescriptor plId =
   PluginDescriptor
-    ""
+    plId
     mempty
     mempty
     Nothing