From ab299e08cee6ee9b2b122ce87b9bdab3b0dd637c Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 19 Oct 2017 12:31:27 +0200 Subject: No longer use Html.beginnerProgram --- elm/battlemap/src/Update.elm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'elm/battlemap/src/Update.elm') 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) -- cgit v1.2.3-70-g09d2