my first elm sample

count.elm

module Main exposing (..)

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

type alias Model = Int
type Msg = Click


main : Program Never Model Msg
main = Html.program
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }

subscriptions : Model -> Sub Msg
subscriptions model = Sub.none

init : (Model, Cmd Msg)
init = 0 ! []

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
    case msg of
        Click -> (model + 1) ! []

view : Model -> Html Msg
view model =
    let
        cnt = toString model |> text
    in
        div [onClick Click] [cnt]