From 9a2d8f37dea8e14afa57affb135def13954df547 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Fri, 15 Sep 2017 09:52:54 +0200 Subject: Satisfied with Elm so far, let's go with it. --- client/elm/battlemap/src/Update.elm | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 client/elm/battlemap/src/Update.elm (limited to 'client/elm/battlemap/src/Update.elm') diff --git a/client/elm/battlemap/src/Update.elm b/client/elm/battlemap/src/Update.elm new file mode 100644 index 0000000..d03239a --- /dev/null +++ b/client/elm/battlemap/src/Update.elm @@ -0,0 +1,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) -- cgit v1.2.3-70-g09d2