fix: broken debouncing

ps-id: 633D40D0-FB6D-4307-A570-E16F732E69EB
ocaml · Feb 18, 2022 · 7866010 · 7866010
1 parent 36de1b2
commit 7866010
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/CHANGES.md b/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
 

diff --git a/ocaml-lsp-server/src/ocaml_lsp_server.ml b/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

diff --git a/submodules/lev b/submodules/lev
+10 −5		lev-fiber/src/lev_fiber.ml
+29 −0		lev-fiber/test/timers.ml