blob: d03239a615a6e7d27ffcc9c5b22d4d4088e687cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Update exposing (Msg(Increment, Decrement), update)
import Model exposing (Model, model)
type Msg = Increment | Decrement
update : Msg -> Model -> Model
update msg model =
case msg of
Increment -> (model + 1)
Decrement -> (model - 1)
|
