fix(lev-fiber): scheduler fd leak (#1257)

running the scheduler more than once no longer leaks fd's Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · May 12, 2024 · 175a6b6 · 175a6b6
1 parent 4718bbe
commit 175a6b6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/submodules/lev/lev-fiber/src/lev_fiber.ml b/submodules/lev/lev-fiber/src/lev_fiber.ml
@@ -1276,6 +1276,7 @@ let run (type a) ?(sigpipe = `Inherit)
     List.iter t.thread_workers ~f:(fun (Worker w) ->
         Worker.complete_tasks_and_stop w;
         Worker.join w);
-    Lev.Async.destroy async
+    Lev.Async.destroy async;
+    Lev.Loop.destroy lev_loop
   in
   res