Guest User

Untitled

a guest
Apr 14th, 2016
24
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Register.Update (..) where
  2.  
  3. import Effects exposing (Effects)
  4. import Register.Models exposing (..)
  5. import Register.Actions exposing (..)
  6. import Validate exposing (..)
  7.  
  8.  
  9. validateRegisterModel : RegisterModel -> List String
  10. validateRegisterModel =
  11.   Validate.all
  12.     [ .emailormobileNo >> ifBlank "Please enter Email or Password"
  13.     , .username >> ifBlank "Please enter username"
  14.     , .password >> ifBlank "Please enter password"
  15.     , .confirmPassword >> ifBlank "Please enter confirm passowrd"
  16.     ]
  17.  
  18. update : Action -> RegisterModel -> ( RegisterModel, Effects Action )
  19. update action model =
  20.   case action of
  21.     Registered ->
  22.       let
  23.         errors =
  24.           validateRegisterModel model.registerModel
  25.        
  26.       in
  27.         ( RegisterModel, Effects.none )
  28.  
  29.     EmailorNumber str ->
  30.       let
  31.         error = "Emaild or MObile number should be there" --write a function or call fuction which return
  32.         --string in case of error or blank if none.  
  33.       in
  34.       ( { model | emailormobileNo = string, emailmobilenoerror = error }, Effects.none )
  35.  
  36.     Username str ->
  37.       let
  38.           error = "username is not valid  "  
  39.       in
  40.       ( { model | username = str, usernameerror = error }, Effects.none )
  41.  
  42.     Password str ->
  43.       let
  44.           error = "enter a valid password"
  45.       in    
  46.           ( { model | password = str, passworderror = error }, Effects.none )
  47.  
  48.     ConfirmPassword str ->
  49.       let
  50.           error = "passwords dont match"
  51.       in
  52.           ( { model | confirmPassword = str, registerModel.password == registerModel.confirmPassword }, Effects.none )
  53.  
  54.     DoctorType str ->
  55.       ( { model | doctorType = str }, Effects.none )
Add Comment
Please, Sign In to add comment