fix(lev-fiber): fd leak when running scheduler

Signed-off-by: Rudi Grinberg <[email protected]>
rgrinberg · May 12, 2024 · e1d56a6 · e1d56a6
1 parent b1be221
commit e1d56a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lev-fiber/src/lev_fiber.ml b/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