don't touch Lwt_sequence

ocaml-dune · Sep 1, 2022 · 3a09179 · 3a09179
1 parent 3dd2d16
commit 3a09179
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src-lwt/notty_lwt.ml b/src-lwt/notty_lwt.ml
@@ -124,9 +124,7 @@ module Term = struct
     let t = Lazy.force t in
     winsize fd |> whenopt (set_size t);
     Lwt.async (fun () -> write t); (* XXX async? *)
-    if dispose then
-      Lwt_sequence.add_r (fun () -> release t)
-        Lwt_main.exit_hooks [@warning "-3"] |> ignore;
+    if dispose then Lwt_main.at_exit (fun () -> release t);
     t
 
   let events t = t.events