如何正确使用MonadError？

class Monad m => MonadError e m | m -> e where
    throwError :: e -> m a
    catchError :: m a -> (e -> m a) -> m a

import cats._
import cats.implicits._

// 定义一个简单的错误类型
sealed trait AppError
case class NotFoundError(message: String) extends AppError
case class DatabaseError(message: String) extends AppError

// 使用 MonadError 的函数
def findUser(userId: Int): EitherT[Id, AppError, User] =
  if (userId == 1) EitherT.pure[Id, AppError](User("Alice"))
  else EitherT.leftT[Id, User](NotFoundError("User not found"))

def saveUser(user: User): EitherT[Id, AppError, Unit] =
  // 模拟保存用户，可能会失败
  if (user.name == "Alice") EitherT.pure[Id, AppError](())
  else EitherT.leftT[Id, Unit](DatabaseError("Failed to save user"))

// 组合操作并处理错误
val program: EitherT[Id, AppError, Unit] =
  for {
    user <- findUser(1)
    _ <- saveUser(user)
  } yield ()

// 运行程序并处理结果
program.value match {
  case Right(_) => println("Success!")
  case Left(error) => println(s"Failed with error: $error")
}