Limit CodeActions within passed range

Return only actions within range specified by client.

Author: aufarg

plugins/hls-hlint-plugin/src/Ide/Plugin/Hlint.hs

@@ -268,16 +268,16 @@ getHlintSettingsRule usage =
 -- ---------------------------------------------------------------------
 
 codeActionProvider :: PluginMethodHandler IdeState TextDocumentCodeAction
-codeActionProvider ideState plId (CodeActionParams _ _ docId _ context) = Right . LSP.List . map InR <$> liftIO getCodeActions
+codeActionProvider ideState plId (CodeActionParams _ _ docId codeActionRange context) = Right . LSP.List . map InR <$> liftIO getCodeActions
   where
-
     getCodeActions = do
         diags <- getDiagnostics ideState
         let docNfp = toNormalizedFilePath' <$> uriToFilePath' (docId ^. LSP.uri)
             numHintsInDoc = length
-              [d | (nfp, _, d) <- diags
+              [d | (nfp, _, d@LSP.Diagnostic{_range=range}) <- diags
                  , validCommand d
                  , Just nfp == docNfp
+                 , subRange codeActionRange range
               ]
         -- We only want to show the applyAll code action if there is more than 1
         -- hint in the current document