Module Pvem_lwt_unix.System.Shell (.ml)

module Shell: sig .. end

val discriminate_process_status : 'a ->
       Lwt_unix.process_status ->
       (unit,
        [> `Shell of 'a * [> `Exited of int | `Signaled of int | `Stopped of int ] ])
       Pvem_lwt_unix.Deferred_result.t

val status_to_string : [< `Exited of int | `Exn of exn | `Signaled of int | `Stopped of int ] ->
       string

val do_or_fail : string ->
       (unit,
        [> `Shell of
             string *
             [> `Exited of int | `Exn of exn | `Signaled of int | `Stopped of int ] ])
       Pvem_lwt_unix.Deferred_result.t

val execute : string ->
       (string * string * [> `Exited of int | `Signaled of int | `Stopped of int ],
        [> `Shell of string * [> `Exn of exn ] ])
       Pvem_lwt_unix.Deferred_result.t