Hlint: CodeAction with isPreferred

> A refactoring should be marked preferred if it is the most reasonable choice of actions to take.

For hlint it is the likeliest choice to apply the fix. Ignore the rule
for the complete module is preferred less.

Author: andys8

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

@@ -450,19 +450,19 @@ diagnosticToCodeActions dynFlags fileContents pluginId documentId diagnostic
            , let applyHintTitle = "Apply hint \"" <> hint <> "\""
                  applyHintArguments = [toJSON (AOP (documentId ^. LSP.uri) start hint)]
                  applyHintCommand = mkLspCommand pluginId "applyOne" applyHintTitle (Just applyHintArguments) ->
-               Just (mkCodeAction applyHintTitle diagnostic Nothing (Just applyHintCommand))
+               Just (mkCodeAction applyHintTitle diagnostic Nothing (Just applyHintCommand) True)
            | otherwise -> Nothing
-      , Just (mkCodeAction suppressHintTitle diagnostic (Just suppressHintWorkspaceEdit) Nothing)
+      , Just (mkCodeAction suppressHintTitle diagnostic (Just suppressHintWorkspaceEdit) Nothing False)
       ]
   | otherwise = []
 
-mkCodeAction :: T.Text -> LSP.Diagnostic -> Maybe LSP.WorkspaceEdit -> Maybe LSP.Command -> LSP.CodeAction
-mkCodeAction title diagnostic workspaceEdit command =
+mkCodeAction :: T.Text -> LSP.Diagnostic -> Maybe LSP.WorkspaceEdit -> Maybe LSP.Command -> Bool -> LSP.CodeAction
+mkCodeAction title diagnostic workspaceEdit command isPreferred =
   LSP.CodeAction
     { _title = title
     , _kind = Just LSP.CodeActionQuickFix
     , _diagnostics = Just (LSP.List [diagnostic])
-    , _isPreferred = Nothing
+    , _isPreferred = Just isPreferred
     , _disabled = Nothing
     , _edit = workspaceEdit
     , _command = command