| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'elm/battlemap/src/Update.elm')
| -rw-r--r-- | elm/battlemap/src/Update.elm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/elm/battlemap/src/Update.elm b/elm/battlemap/src/Update.elm index 1a84481..7ee61a3 100644 --- a/elm/battlemap/src/Update.elm +++ b/elm/battlemap/src/Update.elm @@ -8,20 +8,20 @@ import Model.SelectTile import Model.SelectCharacter import Model.EndTurn -update : Event.Type -> Model.Type -> Model.Type +update : Event.Type -> Model.Type -> (Model.Type, (Cmd Event.Type)) update event model = let new_model = (Model.clear_error model) in case event of (Event.DirectionRequested d) -> - (Model.RequestDirection.apply_to new_model d) + ((Model.RequestDirection.apply_to new_model d), Cmd.none) (Event.TileSelected loc) -> - (Model.SelectTile.apply_to new_model loc) + ((Model.SelectTile.apply_to new_model loc), Cmd.none) (Event.CharacterSelected char_id) -> - (Model.SelectCharacter.apply_to new_model char_id) + ((Model.SelectCharacter.apply_to new_model char_id), Cmd.none) Event.TurnEnded -> - (Model.EndTurn.apply_to new_model) + ((Model.EndTurn.apply_to new_model), Cmd.none) |