wip: make rename project wide

voodoos · Jan 29, 2024 · 7105c12 · 7105c12
1 parent ba1d99a
commit 7105c12
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ocaml-lsp-server/src/ocaml_lsp_server.ml b/ocaml-lsp-server/src/ocaml_lsp_server.ml
@@ -653,7 +653,7 @@ let on_request :
           let+ locs, _desync =
             Document.Merlin.dispatch_exn
               doc
-              (Occurrences (`Ident_at (Position.logical position), `Buffer))
+              (Occurrences (`Ident_at (Position.logical position), `Project))
           in
           let loc =
             List.find_opt locs ~f:(fun loc ->

diff --git a/ocaml-lsp-server/src/rename.ml b/ocaml-lsp-server/src/rename.ml
@@ -8,7 +8,7 @@ let rename (state : State.t)
   | `Other -> Fiber.return (WorkspaceEdit.create ())
   | `Merlin merlin ->
     let command =
-      Query_protocol.Occurrences (`Ident_at (Position.logical position), `Buffer)
+      Query_protocol.Occurrences (`Ident_at (Position.logical position), `Project)
     in
     let+ locs, _desync = Document.Merlin.dispatch_exn merlin command in
     let version = Document.version doc in