printStopTask :: Int64 -> Either StopTaskError () -> IO ()
printStopTask i = let t = taskShow i in \case
  Right _ -> t " has been stopped."
  Left AlreadyStopped -> t " has already been stopped."
  Left NotStarted -> t " hasn't been started yet."
  Left StopTaskNotFound -> t " doesn't exist."
printStopTask :: Int64 -> Either StopTaskError () -> IO ()
printStopTask i = let t = taskShow i in \case
  Right _ -> t " has been stopped."
  Left AlreadyStopped -> t " has already been stopped."
  Left NotStarted -> t " hasn't been started yet."
  Left StopTaskNotFound -> t " doesn't exist."
printStopTask i = let t = taskShow i in \case
  Right _ -> t " has been stopped."
  Left AlreadyStopped -> t " has already been stopped."
  Left NotStarted -> t " hasn't been started yet."
  Left StopTaskNotFound -> t " doesn't exist."