Increment Button click example

Button.elm

module Main exposing (..)
import Html exposing (..)
import Html.Events exposing (..)


type alias Model = Int


model : Model
model = 0


main : Program Never Model Msg


main =
Html.beginnerProgram { model = model, view = view, update = update }


view : Model -> Html Msg
view model =
div []
[ div []
[ button [ onClick Increment ] [ text (toString(model)) ]
]
]
type Msg
= Increment


update : Msg -> Model -> (Model)


update msg model =
case msg of
Increment ->
( model + 1 )