Comparison.elm

update msg model =
    case msg of
        LoginClicked ->
            attemptLogin model
            
        FormSubmitted ->
            model
                |> validate
                |> attemptLogin
            

update msg model =
    case msg of
        FormEnter ->
            let
                (validatedModel, _) = 
                    update Validate model
                    
                (newModel, cmd) =
                    update Login validatedModel
            in
            update Login validatedModel
            
        Login ->
            attemptLogin model
            
        Validate ->
            validate model