fix: broken debouncing

ps-id: 633D40D0-FB6D-4307-A570-E16F732E69EB

Author: rgrinberg

CHANGES.md

@@ -1,8 +1,9 @@
-# 1.10.2
+# 1.10.2 (unreleased)
 
 ## Fixes
 
 - Catch merlin desturct exceptions (#626)
+- Fix broken debouncing (#627)
 
 # 1.10.1
 

ocaml-lsp-server/src/ocaml_lsp_server.ml

@@ -159,6 +159,7 @@ let set_diagnostics rpc doc =
     let+ () =
       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* res = Lev_fiber.Timer.Wheel.await timer in
           match res with