let pp_status fmt =
function
| Task.Result res ->
if res <> 0 then Format.fprintf fmt "Exit [%d]@." res
| Task.Canceled ->
Format.fprintf fmt "Timeout@."
| Task.Failed exn ->
Format.fprintf fmt "Failed \"%s\"@." (Printexc.to_string exn)