Up

Module Quit

Signature

val quit : Exit_code.t -> unit

val exit : Exit_code.t -> 'a Async.Std.Deferred.t

val is_quitting : unit -> bool

val ignore_exn_while_quitting : (unit -> 'a Async.Std.Deferred.t) -> 'a Async.Std.Deferred.t

val with_prevent_quitting : (unit Async.Std.Deferred.t -> unit Async.Std.Deferred.t) -> unit Async.Std.Deferred.t