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

Author: rgrinberg

CHANGES.md

@@ -1,3 +1,9 @@
+# 1.10.3
+
+## Fixes
+
+- Fix more debouncing bugs (#629)
+
 # 1.10.2
 
 ## Fixes

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 ()