fix: use the new reset from Lev_fiber

this version makes sure that we wake up the wheel appropriately Signed-off-by: Rudi Grinberg <[email protected]> ps-id: 9F9A1C0B-0F45-43D6-B1F7-A16791244BE7
ocaml · Feb 23, 2022 · a249e61 · a249e61
1 parent 653aada
commit a249e61
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git 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
@@ -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
+33 −26		lev-fiber/src/lev_fiber.ml
+1 −1		lev-fiber/src/lev_fiber.mli
+2 −2		lev-fiber/test/timers.ml