a-simple-name.elm

import Html exposing (beginnerProgram, div, input, text)
import Html.Events exposing (onInput)


main =
  beginnerProgram
    { model =
      { name = ""
      }
    , view = view
    , update = update
    }
  

type alias Model =
  { name : String
  }


view model =
  div []
    [ input [ onInput Text ] []
    , div [] [ text (toString model) ]
    ]


type Msg = Text String


update msg model =
  case msg of
    Text name ->
      { model | name = name }