Elm StartApp as Automaton

startapp-automaton.elm

module StartAppAutomaton where

import Graphics.Element exposing (..)
import Window
import Time
import Automaton as Auto

dt = Time.fps 60

type alias Model = {count : Int}

initialModel = {count = 0}

update : () -> Model -> (Element, Model)
update action model = 
    let m = {model | count <- model.count + 1} 
    in (view m, m)

view {count} = show count

app = Auto.hiddenState initialModel update 

main = Auto.run app (view initialModel) Mouse.clicks