debugging1.elm

module Main exposing (..)

import Html exposing (..)
import Html.Events exposing (..)


type alias Model =
    { fullName : String
    , firstName : String
    , lastName : String
    }


initData : Model
initData =
    { fullName = ""
    , firstName = ""
    , lastName = ""
    }


type Msg
    = Add
    | Clear
    | InputFN String
    | InputLN String


update : Msg -> Model -> Model
update msg model =
    case msg of
        Add ->
            { model
                | fullName = model.firstName ++ model.firstName
                , firstName = ""
                , lastName = ""
            }

        Clear ->
            initData

        InputFN str ->
            { model
                | firstName = str
            }

        InputLN str ->
            { model
                | lastName = str
            }


view : Model -> Html Msg
view model =
    div []
        [ h3 [] [ text ("Full Name : " ++ model.fullName) ]
        , input [ onInput InputFN ] []
        , input [] []
        , button [ onClick Add ] [ text "FullName" ]
        , button [ onClick Clear ] [ text "Clear" ]
        ]


main =
    beginnerProgram { model = initData, view = view, update = update }