14

我想使用 Scalaz 进行验证，并且希望能够在不同的上下文中重用验证函数。顺便说一句，我对 Scalaz 完全陌生。

假设我有这些简单的检查：

def checkDefined(xs: Option[String]): Validation[String, String] =
  xs.map(_.success).getOrElse("empty".fail)

def nonEmpty(str: String): Validation[String, String] =
  if (str.nonEmpty) str.success else "empty".fail

def int(str: String): Validation[String, Int] = ...

我希望能够编写验证，其中一个的输出被馈送到另一个。我可以很容易地用flatMap理解或通过理解来做到这一点，但感觉肯定有比这更好的方法。

for {
  v1 <- checkDefined(map.get("foo"))
  v2 <- nonEmpty(v1)
  v3 <- int(v2)
  v4 <- ...
} yield SomeCaseClass(v3, v4)

或者

val x1 = checkDefined(map get "foo").flatMap(nonEmpty).flatMap(int)
val x2 = check(...)

// How to combine x1 and x2?

Scalaz 专家有什么想法吗？

4

5 回答 5

17

除了@oxbow_lakes 建议的解决方案，您还可以使用 Kleisli 组合。

scala> import scalaz._, Scalaz._
import scalaz._
import Scalaz._

scala> def f: Int => Validation[String, Int] = i => if(i % 2 == 0) Success(i * 2) else    Failure("Odd!")
f: Int => scalaz.Validation[String,Int]

scala> def g: Int => Validation[String, Int] = i => if(i > 0) Success(i + 1) else Failure("Not positive!")
g: Int => scalaz.Validation[String,Int]

scala> type Va[+A] = Validation[String, A]
defined type alias Va

scala> import Validation.Monad._
import Validation.Monad._

scala> kleisli[Va, Int, Int](f) >=> kleisli[Va, Int, Int](g)
res0: scalaz.Kleisli[Va,Int,Int] = scalaz.Kleislis$$anon$1@4fae3fa6

scala> res0(11)
res1: Va[Int] = Failure(Odd!)

scala> res0(-4)
res2: Va[Int] = Failure(Not positive!)

scala> res0(4)
res3: Va[Int] = Success(9)

A => M[B]where类型的函数M : Monad称为 Kleisli 箭头。

您可以组合两个 Kleisli 箭头A => M[B]并使用运算符B => M[C]获取箭头。这被称为 Kleisli 组合。A => M[C]>=>

该表达式kleisli(f) >=> kleisli(g) >=> kleisli(h)等价于x => for(a <- f(x); b <- g(a); c <- h(b)) yield c，减去不必要的本地绑定。

于 2012-02-24T10:21:32.673 回答
14

您可能想看看三个夜总会的故事，它使用以下方法描述了验证组合：

  1. 单子（即flatMap）
  2. 应用函子有两种方式（使用|@|和traverse）

基本上规则是这样的：通过 monads 组合是fail-fast。也就是说，您的计算此时将短路并解析为Failure(e). 使用应用函子意味着您可以累积失败（可能用于 Web 表单验证） - 您可以通过使用 a collection（即 a Semigroup）作为失败类型来做到这一点 - 典型示例使用NonEmptyList.

还有其他有用的东西Validation：

val1 <+> val2    //Acts like an `orElse`
val1 >>*<< val2  //Accumulates both successes and failures

在您的具体示例中，为什么您认为“必须有更好的方法”而不是通过理解来做到这一点？不过可以稍微改进一下：

def checkDefined(xs: Option[String]) = xs.toSuccess("empty :-(")

在这种情况下，它并不真正值得一个完整的方法：

for {
  v1 <- map get "foo" toSuccess "Empty :-("
  v2 <- some(v1) filterNot (_.isEmpty) toSuccess "Empty :-("
  v3 <- (v2.parseInt.fail map (_.getMessage)).validation 
  v4 <- ...
} yield SomeCaseClass(v3, v4)
于 2012-02-24T10:01:32.053 回答
0

表达

for {
  v1 <- checkDefined(map.get("foo"))
  v2 <- nonEmpty(v1)
  v3 <- int(v2)
  v4 <- someComputation()
} yield SomeCaseClass(v3, v4)

可以这样换

(checkDefined(map.get("foo")).liftFailNel |@| nonEmpty(v1)) {(v1, v2) =
    SomeCaseClass(int(v2), someComputation)
}

结果将是

 Validtion[NonEmptyList[String], SomeCaseClass] which is equal to ValidationNEL[String, SomeCaseClass]

如果两个验证都失败，NonEmptyList 将包含它们

于 2012-02-24T10:55:28.507 回答
0

我最近为可组合的声明性验证编写了一个简单的“框架”。我最初的实现是基于@missingfaktor 的回答，但是，除了他的想法之外，我还添加了一个使用Shapeless 的GenericDSL ，用于处理要验证的任意大小的输入元组，这些元组被输入到匹配度数。

其用法如下：

def nonEmpty[A] = (msg: String) => Vali { a: Option[A] =>
  a.toSuccess(msg)
}

def validIso2CountryCode = (msg: String) => Vali { x: String =>
  IsoCountryCodes2to3.get(x).toSuccess(msg)
}

val postal = "12345".some
val country = "GB".some

val params = (
  postal
     |> nonEmpty[String]("postal required"),
  country
     |> nonEmpty[String]("country required")
    >=> validIso2CountryCode("country must be valid")
)

// parameter type inference doesn't work here due to the generic type level nature of the implementation; any improvements are welcome!
validate(params) { (postal: String, country: String) =>
  println(s"postal: $postal, country: $country")
}

可以在https://gist.github.com/eallik/eea6b21f8e5154e0c97e找到实现。

于 2014-10-24T15:32:15.687 回答
0

除了missingfaktor 的回答之外，人们可能会注意到scalaz 7 没有Monadfor，Validation因为它的行为与Apply实例不匹配。因此，为方便起见，可以定义BindforValidation以及转换器：

import scalaz.{Bind, Kleisli, Validation, Success, Failure}

implicit def toKleisli[E, A, B](f: A => Validation[E, B]): Kleisli[Validation[E, ?], A, B] =
  Kleisli[Validation[E, ?], A, B](f)

implicit def fromKleisli[E, A, B](f: Kleisli[Validation[E, ?], A, B]): A => Validation[E, B] = f.run

implicit def validationBind[E] = new Bind[Validation[E, ?]] {

  def bind[A, B](fa: Validation[E, A])(f: (A) => Validation[E, B]): Validation[E, B] = {
    import Validation.FlatMap._
    fa.flatMap(f)
  }

  def map[A, B](fa: Validation[E, A])(f: (A) => B): Validation[E, B] = fa.map(f)
}

val parse: Option[String] => Validation[String, Int] = checkDefined _ >=> nonEmpty _ >=> int _

println(parse(None)) // Failure(empty)
println(parse(Some(""))) // Failure(empty)
println(parse(Some("abc"))) // Failure(java.lang.NumberFormatException: For input string: "abc")
println(parse(Some("42"))) // Success(42)
于 2017-04-28T15:45:45.340 回答