diff --git a/CHANGES.md b/CHANGES.md index d4d9577a7..5dfdf82fe 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -1,3 +1,9 @@ +# 1.10.3 + +## Fixes + +- Fix more debouncing bugs (#629) + # 1.10.2 ## Fixes diff --git a/ocaml-lsp-server/src/ocaml_lsp_server.ml b/ocaml-lsp-server/src/ocaml_lsp_server.ml index 53195f692..6659eab13 100644 --- a/ocaml-lsp-server/src/ocaml_lsp_server.ml +++ b/ocaml-lsp-server/src/ocaml_lsp_server.ml @@ -160,7 +160,7 @@ let set_diagnostics rpc doc = task_if_running state.detached ~f:(fun () -> let timer = Document.timer doc in let* () = Lev_fiber.Timer.Wheel.cancel timer in - Lev_fiber.Timer.Wheel.reset timer; + let* () = Lev_fiber.Timer.Wheel.reset timer in let* res = Lev_fiber.Timer.Wheel.await timer in match res with | `Cancelled -> Fiber.return () diff --git a/submodules/lev b/submodules/lev index d9cda0df0..9ce6b0fbb 160000 --- a/submodules/lev +++ b/submodules/lev @@ -1 +1 @@ -Subproject commit d9cda0df0290e0f1daaf239be2eee2b993d4ee61 +Subproject commit 9ce6b0fbbc362f934edef283e9b3b6708267bab9