Tiny implementation for incrementing a counter

Increment.elm

import Html exposing (div, text)
import Html.App as App
import Html.Events exposing (onClick)

type Msg = Increment

main : Program Never
main =
    App.beginnerProgram
        { model = 0
        , view = (\model ->
                      div [ onClick Increment] [
                           text("Model is: " ++ (toString model))
                          ]
                 )
        , update = (\n m -> m + 1)
        }