printStartTask :: Int64 -> Either StartTaskError () -> IO ()
printStartTask i = let t = taskShow i in \case
  Right _ -> t " has been started."
  Left AlreadyStarted -> t " has already been started."
  Left StartTaskNotFound -> t " doesn't exist."
printStartTask :: Int64 -> Either StartTaskError () -> IO ()
printStartTask i = let t = taskShow i in \case
  Right _ -> t " has been started."
  Left AlreadyStarted -> t " has already been started."
  Left StartTaskNotFound -> t " doesn't exist."
printStartTask i = let t = taskShow i in \case
  Right _ -> t " has been started."
  Left AlreadyStarted -> t " has already been started."
  Left StartTaskNotFound -> t " doesn't exist."