szg251 / elm-validator-pipeline Goto Github PK

type alias Validated err a =
    Result (List err) a

type Field
  = FieldName
  | FieldEmail
  | FieldPassword

Ok ValidatedForm
    |> validate (String.notEmpty (FieldName, "name is required")) form.name
    |> validate (String.isEmail (FieldEmail, "email is invalid")) form.email
    |> validateMany
        [ String.hasLetter (FieldPassword, "password needs to have letters")
        , String.hasNumber (FieldPassword, "password needs to have numbers")
        ]
        form.password