let classify (e : _ non_zero_execution) = match e with | `System _ | `Timeout _ | `Unix_exec _ -> `Unix | `Execution _ | `Non_zero _ -> `Execution | `Ssh_failure _ -> `Ssh