Minor patch for Jump codeactions (#1391)

ocaml · Oct 11, 2024 · 8b47925 · 8b47925
1 parent 7958ae9
commit 8b47925
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ocaml-lsp-server/src/code_actions.ml b/ocaml-lsp-server/src/code_actions.ml
@@ -118,8 +118,8 @@ let compute server (params : CodeActionParams.t) =
     let open_related = Action_open_related.for_uri capabilities doc in
     let* merlin_jumps =
       match state.configuration.data.merlin_jump_code_actions with
-      | Some { enable = true } -> Action_jump.code_actions doc params capabilities
-      | _ -> Fiber.return []
+      | Some { enable = true } | None -> Action_jump.code_actions doc params capabilities
+      | Some { enable = false } -> Fiber.return []
     in
     (match Document.syntax doc with
      | Ocamllex | Menhir | Cram | Dune ->