cats - foldLeftM - short circuit

Main.scala

val xs: List[Int] = List(1, 1, 2, 1, 1)
val result = xs.foldLeftM(0) {
  case (r, x) =>
    println(s"r=$r, x=$x")
    if (x % 2 == 0) Left("even")
    else Right(r + x)
}
println(result)

/*
r=0, x=1
r=1, x=1
r=2, x=2
Left(even)
*/