fmt

voodoos · Jan 29, 2024 · ccedef9 · ccedef9
1 parent 1c3ebfd
commit ccedef9
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 11 deletions.
diff --git a/ocaml-lsp-server/src/code_actions/action_inline.ml b/ocaml-lsp-server/src/code_actions/action_inline.ml
@@ -190,7 +190,8 @@ end = struct
     let pat_iter (type k) (iter : I.iterator)
         (pat : k Typedtree.general_pattern) =
       match pat.pat_desc with
-      | Tpat_var (id, { loc; _ }, _) -> paths := Loc.Map.set !paths loc (Pident id)
+      | Tpat_var (id, { loc; _ }, _) ->
+        paths := Loc.Map.set !paths loc (Pident id)
       | Tpat_alias (pat, id, { loc; _ }, _) ->
         paths := Loc.Map.set !paths loc (Pident id);
         I.default_iterator.pat iter pat

diff --git a/ocaml-lsp-server/src/ocaml_lsp_server.ml b/ocaml-lsp-server/src/ocaml_lsp_server.ml
@@ -439,17 +439,18 @@ let references rpc (state : State.t)
         (Occurrences (`Ident_at (Position.logical position), `Project))
     in
     let+ () =
-      if not desync then Fiber.return () else
-      let msg =
-        let message =
-          "The index might be out-of-sync and only local results are shown. \
-           If you use Dune you can build the target `@ocaml-index` to refresh \
-           the index."
+      if not desync then Fiber.return ()
+      else
+        let msg =
+          let message =
+            "The index might be out-of-sync and only local results are shown. \
+             If you use Dune you can build the target `@ocaml-index` to \
+             refresh the index."
+          in
+          ShowMessageParams.create ~message ~type_:Warning
         in
-        ShowMessageParams.create ~message ~type_:Warning
-      in
-      task_if_running state.detached ~f:(fun () ->
-          Server.notification rpc (ShowMessage msg))
+        task_if_running state.detached ~f:(fun () ->
+            Server.notification rpc (ShowMessage msg))
     in
     Some
       (List.map locs ~f:(fun loc ->