From a249e618facf7b7f524bf96e6f1cf6728a7fcd90 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Tue, 22 Feb 2022 22:52:52 -0700 Subject: [PATCH] fix: use the new reset from Lev_fiber this version makes sure that we wake up the wheel appropriately Signed-off-by: Rudi Grinberg ps-id: 9F9A1C0B-0F45-43D6-B1F7-A16791244BE7 --- CHANGES.md | 6 ++++++ ocaml-lsp-server/src/ocaml_lsp_server.ml | 2 +- submodules/lev | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) 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