module App exposing (Model, initialModel, update, view)

import Html exposing (..)
import Login as Login


type alias Model =
    { loginModel : Login.Model
    , pressCount : Int
    }


initialModel : Model
initialModel =
    { loginModel = Login.Model "" ""
    , pressCount = 0
    }


type Msg
    = OnLoginPageMsg Login.Msg
    | OnLogin


update : Msg -> Model -> Model
update msg model =
    case msg of
        OnLoginPageMsg msg ->
            { model | loginModel = Login.update msg model.loginModel }

        OnLogin ->
            { model | pressCount = model.pressCount + 1 }


view : Model -> Html Msg
view model =
    let
        page =
            Login.view model.loginModel { onInternal = OnLoginPageMsg, onLogin = OnLogin }
    in
    div []
        [ text ("Pressed " ++ toString model.pressCount ++ " times")
        , br [] []
        , text (model.loginModel.username ++ ":" ++ model.loginModel.password)
        , page
        ]