Os.Exit
type t =
| Code : int -> t
| Exec : (unit -> ('a, string) result) -> t
val code : int -> t
val exec : ?env:Env.assignments -> ?cwd:Fpath.t -> Fpath.t -> Cmd.t -> t
val get_code : t -> int
val exit : t -> ('a, string) result
val on_sigint : hook:(unit -> unit) -> (unit -> 'a) -> 'a