action to action_kind

Signed-off-by: Rudi Grinberg <[email protected]>

Author: rgrinberg

ocaml-lsp-server/src/destruct_lsp.ml

@@ -1,15 +1,15 @@
 open Import
 
-let action = "destruct"
+let action_kind = "destruct"
 
 let code_action_of_case_analysis uri (loc, newText) =
   let edit : WorkspaceEdit.t =
     let textedit : TextEdit.t = { range = Range.of_loc loc; newText } in
     let uri = Uri.to_string uri in
     WorkspaceEdit.create ~changes:[ (uri, [ textedit ]) ] ()
   in
-  let title = String.capitalize_ascii action in
-  CodeAction.create ~title ~kind:(CodeActionKind.Other action) ~edit
+  let title = String.capitalize_ascii action_kind in
+  CodeAction.create ~title ~kind:(CodeActionKind.Other action_kind) ~edit
     ~isPreferred:false ()
 
 let code_action doc (params : CodeActionParams.t) =

ocaml-lsp-server/src/destruct_lsp.mli

@@ -1,6 +1,6 @@
 open Import
 
-val action : string
+val action_kind : string
 
 val code_action :
      Document.t

ocaml-lsp-server/src/ocaml_lsp_server.ml

@@ -14,7 +14,7 @@ let not_supported () =
 
 let initialize_info : InitializeResult.t =
   let codeActionProvider =
-    let codeActionKinds = [ CodeActionKind.Other Destruct_lsp.action ] in
+    let codeActionKinds = [ CodeActionKind.Other Destruct_lsp.action_kind ] in
     `CodeActionOptions (CodeActionOptions.create ~codeActionKinds ())
   in
   let textDocumentSync =
@@ -157,8 +157,8 @@ let code_action server (params : CodeActionParams.t) =
   let state : State.t = Server.state server in
   let store = state.store in
   match params.context.only with
-  | Some set when not (List.mem (CodeActionKind.Other Destruct_lsp.action) ~set)
-    ->
+  | Some set
+    when not (List.mem (CodeActionKind.Other Destruct_lsp.action_kind) ~set) ->
     Fiber.return (Ok (None, state))
   | Some _
   | None ->