MouseCounter.elm

import Graphics.Element exposing (Element, show)
import Mouse


type alias Model =
  { n : Int
  }


init : Model
init =
  { n = 0
  }


update : Input -> Model -> Model
update () model =
  { model | n <- model.n + 1 }


view : Model -> Element
view model =
  show model


type alias Input = ()


models : Signal Model
models = Signal.foldp update init Mouse.clicks


main : Signal Element
main =
  Signal.map view models