let name (t: t) =
match t with
| `Building _ -> "Building"
| `Tried_to_start _ -> "Tried_to_start"
| `Started_running _ -> "Started_running"
| `Starting _ -> "Starting"
| `Still_building _ -> "Still_building"
| `Still_running _ -> "Still_running"
| `Still_running_despite_recoverable_error _ ->
"Still_running_despite_recoverable_error"
| `Ran_successfully _ -> "Ran_successfully"
| `Successfully_did_nothing _ -> "Successfully_did_nothing"
| `Active _ -> "Active"
| `Tried_to_eval_condition _ -> "Tried_to_eval_condition"
| `Tried_to_reeval_condition _ -> "Tried_to_reeval_condition"
| `Verified_success _ -> "Verified_success"
| `Already_done _ -> "Already_done"
| `Dependencies_failed _ -> "Dependencies_failed"
| `Failed_running _ -> "Failed_running"
| `Failed_to_kill _ -> "Failed_to_kill"
| `Failed_to_eval_condition _ -> "Failed_to_eval_condition"
| `Failed_to_start _ -> "Failed_to_start"
| `Killing _ -> "Killing"
| `Tried_to_kill _ -> "Tried_to_kill"
| `Did_not_ensure_condition _ -> "Did_not_ensure_condition"
| `Killed _ -> "Killed"
| `Finished _ -> "Finished"
| `Passive _ -> "Passive"