List[Either[Throwable,_]]のリスト中にLeftが1個以上あったら最初のLeftを返し、Leftが1個もなければ、Rightを1個のリストにまとめて返すコード

gistfile1.scala

def f[a] = (d:List[Either[Throwable,a]]) => 
  d.collect{case Left(x) => x}.headOption.toLeft(d.map{case Right(x) => x})

scala> Some(List(Right("4"),Right("3"))) map f
res11: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Right(List(4, 3)))

scala> Some(List(Right("4"),Left(new RuntimeException),Right("3"))) map f
res12: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Left(java.lang.RuntimeException))

scala> Some(List(Right("4"),Left(new RuntimeException("a")),Right("3"),Left(new RuntimeException("b")))) map f
res13: Option[Product with Either[Throwable,List[java.lang.String]] with Serializable] = Some(Left(java.lang.RuntimeException: a))

fold使って書いてみますた

def f[A](d: List[Either[Throwable,A]]) = {
  d.foldRight[Either[Throwable, List[A]]](Right(Nil)) {
    case (Left(e) , _)           => Left(e)
    case (Right(_), Left(e))     => Left(e)
    case (Right(a), Right(list)) => Right(a :: list)
  }
}

なるほど。その手がありましたか。
とても読みやすいです。ありがとうございます！

しかもこれならEitherActionを使える。
EitherActionって名前どうにかしたい。

import EA._
def find(jStr:String) = EitherAction{
  jStr >>= parseJson >>= {
    _.foldRight[Either[Throwable, List[A]]](Right(Nil)) {
      case (Left(e) , _)           => BadRequest(e.getMessage) 異常
      case (Right(_), Left(e))     => BadRequest(e.getMessage) 異常
      case (Right(a), Right(list)) => (a :: list)              継続
    }
  } >>= findDb
}

ちなみに利用シチュエーションは、

["201201","201240"]

このようなデータがjsonで渡され、
パース実行時にエラーが発生する場合等。

遅レスですが、Scalazで。

scala> List(1.right[Throwable], 2.right[Throwable]).sequence[({ type X[A] = Either[Throwable, A] })#X, Int]
res1: Either[java.lang.Throwable,List[Int]] = Right(List(1, 2))

scala> List(1.right, (new Exception).left, (new Error).left).sequence[({ type X[A] = Either[Throwable, A] })#X, Int]
res2: Either[java.lang.Throwable,List[Int]] = Left(java.lang.Exception)

scalaz版ありがとうございます。勉強になります！