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)