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/View/Status.elm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'client/elm/battlemap/src/View/Status.elm') diff --git a/client/elm/battlemap/src/View/Status.elm b/client/elm/battlemap/src/View/Status.elm index 544aa4b..3a06572 100644 --- a/client/elm/battlemap/src/View/Status.elm +++ b/client/elm/battlemap/src/View/Status.elm @@ -10,10 +10,9 @@ import Model view : Model.Type -> (Html.Html Update.Type) view model = (Html.text - (case (model.selection, model.navigator) of - (Nothing, _) -> "" + (case (model.state, model.navigator) of (_, Nothing) -> "" - ((Just char_id), (Just nav)) -> + ((Model.MovingCharacter char_id), (Just nav)) -> case (Dict.get char_id model.characters) of Nothing -> "" (Just char) -> @@ -26,5 +25,6 @@ view model = ++ (toString char.movement_points) ++ " movement points remaining." ) + (_, _) -> "" ) ) -- cgit v1.2.3-70-g09d2