Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- module Register.Update (..) where
- import Effects exposing (Effects)
- import Register.Models exposing (..)
- import Register.Actions exposing (..)
- import Validate exposing (..)
- validateRegisterModel : RegisterModel -> List String
- validateRegisterModel =
- Validate.all
- [ .emailormobileNo >> ifBlank "Please enter Email or Password"
- , .username >> ifBlank "Please enter username"
- , .password >> ifBlank "Please enter password"
- , .confirmPassword >> ifBlank "Please enter confirm passowrd"
- ]
- update : Action -> RegisterModel -> ( RegisterModel, Effects Action )
- update action model =
- case action of
- Registered ->
- let
- errors =
- validateRegisterModel model.registerModel
- in
- ( RegisterModel, Effects.none )
- EmailorNumber str ->
- let
- error = "Emaild or MObile number should be there" --write a function or call fuction which return
- --string in case of error or blank if none.
- in
- ( { model | emailormobileNo = string, emailmobilenoerror = error }, Effects.none )
- Username str ->
- let
- error = "username is not valid "
- in
- ( { model | username = str, usernameerror = error }, Effects.none )
- Password str ->
- let
- error = "enter a valid password"
- in
- ( { model | password = str, passworderror = error }, Effects.none )
- ConfirmPassword str ->
- let
- error = "passwords dont match"
- in
- ( { model | confirmPassword = str, registerModel.password == registerModel.confirmPassword }, Effects.none )
- DoctorType str ->
- ( { model | doctorType = str }, Effects.none )
Add Comment
Please, Sign In to add comment