How do you validate 2 form fields to have same value. about elm-form

[etaque]

hi! good question.
I would try with a first read of password, andThen a read of password confirmation, that should give you a Validation e (String, String). Then you should be able to compare passwords and again use andThen to return only the password confirmation value.

[etaque]

closing due to inactivity, feel free to reopen if you're still stuck.

[alexofob]

Many thanks for the feedback. I had wanted to implement and share feedback, but now, I decided to go with polymer web components and I had not since had a need to implement the suggestions.

[werner]

Hi @etaque, I'm having the same issue here, but I can't figure it out the solution, for example I have this code:

validate : Validation () User
validate =
    map3 User
        (field "email" email)
        (field "password" (string |> andThen nonEmpty))
        (field "passwordConfirmation" (string |> andThen nonEmpty))

How can I read the password to pass it to passwordConfirmation?

Thanks.

[alexofob]

Hi @etaque ,

I have implemented your recommendation on how to do the password confirmation as below:

`
validateChangePwdForm : Validation CustomError ChangePwdForm
validateChangePwdForm =
map2 ChangePwdForm
(field "newPassword" validatePassword)
(field "confirmPassword" string |> andThen passwordsMatch)

passwordsMatch : String -> Validation CustomError String
passwordsMatch confirmPassword =
(field "newPassword" string)
|> andThen
(\s ->
if (s /= confirmPassword) then
fail (customError PasswordsMustMatch)
else
succeed s
)
`

And I am using the below code to show the error message when the passwords do not much.

`
let
password =
Form.getFieldAsString "confirmPassword" changePwdForm

    ( passwordError, invalid ) =
        case password.liveError of
            Just errorValue ->
                case errorValue of
                    Form.Error.Empty ->
                        ( "Please confirm your password.", attribute "invalid" "" )

                    Form.Error.CustomError PasswordsMustMatch ->
                        ( "Passwords must match", attribute "invalid" "" )

                    _ ->
                        ( "Please provide a valid Password.", attribute "invalid" "" )

            Nothing ->
                ( "", class "" )
`

However, I am unable to see the Error message when the input is validated.

What am I doing wrong?

From the troubleshooting I have done so far, it seems that the line

fail (customError PasswordsMustMatch)

is failing to return the validation.

I will appreciate your feedback.

Thanks.

[etaque]

follow up in #75