From 2c9b2af9ac011a871c5c02d3e2258fca73a98880 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 27 Sep 2017 10:31:16 +0200 Subject: Splits client and server into two repositories. --- elm/battlemap/src/Update.elm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 elm/battlemap/src/Update.elm (limited to 'elm/battlemap/src/Update.elm') diff --git a/elm/battlemap/src/Update.elm b/elm/battlemap/src/Update.elm new file mode 100644 index 0000000..b6b2a80 --- /dev/null +++ b/elm/battlemap/src/Update.elm @@ -0,0 +1,25 @@ +module Update exposing (update) + +import Event + +import Model + +import Update.DirectionRequest +import Update.SelectTile +import Update.SelectCharacter +import Update.EndTurn + +update : Event.Type -> Model.Type -> Model.Type +update event model = + case event of + (Event.DirectionRequest d) -> + (Update.DirectionRequest.apply_to model d) + + (Event.SelectTile loc) -> + (Update.SelectTile.apply_to model loc) + + (Event.SelectCharacter char_id) -> + (Update.SelectCharacter.apply_to model char_id) + + Event.EndTurn -> + (Update.EndTurn.apply_to model) -- cgit v1.2.3-70-g09d2