code:

-- Update

type Action = Increment

doClick action game =
    case action of
        Increment -> { game | clicks = game.clicks + (1 * game.cps_multiplier) }

-- Where things get hazy for me: determining how to handle an every second Time update
tickerClick : Signal Action
tickerClick = Signal.map Increment (Time.every Time.second)

-- View

view : Signal.Address Action -> Game -> Html
view address game = 

    div []
        [ img [ src "assets/cookie.jpeg", onClick address Increment ] []
        , div [] [text (toString game.clicks)]
        ]