[refactor] unused values removed

Author: Ishmum Jawad Khan

plugins/default/src/Ide/Plugin/Pragmas.hs

@@ -15,7 +15,6 @@ import           Control.Applicative             ((<|>))
 import qualified Data.HashMap.Strict             as H
 import qualified Data.Text                       as T
 import           Data.Maybe                      (listToMaybe, fromMaybe)
-import           Data.List                      (findIndex)
 import           Development.IDE                 as D
 import           Ide.Types
 import           Language.Haskell.LSP.Types
@@ -52,14 +51,13 @@ mkPragmaEdit uri pragmaName rng = res where
 -- | Offer to add a missing Language Pragma to the top of a file.
 -- Pragmas are defined by a curated list of known pragmas, see 'possiblePragmas'.
 codeActionProvider :: CodeActionProvider IdeState
-codeActionProvider lsp state _plId docId _ (J.CodeActionContext (J.List diags) _monly) = do
+codeActionProvider _ state _plId docId _ (J.CodeActionContext (J.List diags) _monly) = do
     let mFile = docId ^. J.uri & uriToFilePath <&> toNormalizedFilePath'
     pm <- fmap join $ runAction "addPragma" state $ getParsedModule `traverse` mFile
     let dflags = ms_hspp_opts . pm_mod_summary <$> pm
         -- Get all potential Pragmas for all diagnostics.
         pragmas = nubOrd $ concatMap (\d -> genPragma dflags (d ^. J.message)) diags
-        somh = startOfModuleHeader pm
-        loc = Position somh 0
+        loc = Position (startOfModuleHeader pm) 0
         rng = Range loc loc
     cmds <- mapM (mkCodeAction rng) pragmas 
     return $ Right $ List cmds