printPauseTask :: Int64 -> Either PauseTaskError () -> IO ()
printPauseTask i = let t = taskShow i in \case
  Right _ -> t " has been paused."
  Left AlreadyFinished -> t " has already been finished."
  Left PauseNotStarted -> t " hasn't been started yet."
  Left PauseTaskNotFound -> t " doesn't exist."
printPauseTask :: Int64 -> Either PauseTaskError () -> IO ()
printPauseTask i = let t = taskShow i in \case
  Right _ -> t " has been paused."
  Left AlreadyFinished -> t " has already been finished."
  Left PauseNotStarted -> t " hasn't been started yet."
  Left PauseTaskNotFound -> t " doesn't exist."
printPauseTask i = let t = taskShow i in \case
  Right _ -> t " has been paused."
  Left AlreadyFinished -> t " has already been finished."
  Left PauseNotStarted -> t " hasn't been started yet."
  Left PauseTaskNotFound -> t " doesn't exist."