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

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
rgrinberg · May 12, 2024 · a4e2f99 · a4e2f99
1 parent b1be221
commit a4e2f99
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