struct
type t = [
| `Exited of int
| `Signaled of int
| `Stopped of int
]
let to_string = function
| `Exited n -> fmt "exited:%d" n
| `Signaled n -> fmt "signaled:%d" n
| `Stopped n -> fmt "stopped:%d" n
let to_log exit_status = Log.s (to_string exit_status)
end