exit_status.ml
shexp.bigstring
shexp.bigstring-io
shexp.process
shexp.sexp
1 2 3 4 5 6 7 8 9 10 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 10
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 ]) ;;