From 9293fb062b0bf66995c72b30e037c762318be000 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 25 Sep 2017 16:08:43 +0200 Subject: Introduces 'States' for the model. --- client/elm/battlemap/src/Update/EndTurn.elm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'client/elm/battlemap/src/Update/EndTurn.elm') diff --git a/client/elm/battlemap/src/Update/EndTurn.elm b/client/elm/battlemap/src/Update/EndTurn.elm index 3490d57..cc81028 100644 --- a/client/elm/battlemap/src/Update/EndTurn.elm +++ b/client/elm/battlemap/src/Update/EndTurn.elm @@ -44,7 +44,8 @@ update_model model nav char_id = apply_to : Model.Type -> Model.Type apply_to model = - case (model.navigator, model.selection) of + case (model.state, model.navigator) of (_, Nothing) -> model - (Nothing, _) -> model - ((Just nav), (Just char_id)) -> (update_model model nav char_id) + ((Model.MovingCharacter char_id), (Just nav)) -> + (update_model model nav char_id) + (_, _) -> model -- cgit v1.2.3-70-g09d2