exit_status.ml
shexp.bigstring
shexp.bigstring-io
shexp.process
shexp.sexp
1 2 3 4 5 6 7 8 9 open Import type t = | Exited of int | Signaled of Signal.t let sexp_of_t = function | Exited n -> Sexp.(cstr "Exited" [int n]) | Signaled n -> Sexp.(cstr "Signaled" [int n])
1 2 3 4 5 6 7 8 9
open Import type t = | Exited of int | Signaled of Signal.t let sexp_of_t = function | Exited n -> Sexp.(cstr "Exited" [int n]) | Signaled n -> Sexp.(cstr "Signaled" [int n])