From 2d54254e59289c452777fccb1f4d00b56eb7e451 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 27 Sep 2017 11:31:17 +0200 Subject: Improves error msgs & UI controls. --- elm/battlemap/src/Update/SelectCharacter.elm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'elm/battlemap/src/Update/SelectCharacter.elm') diff --git a/elm/battlemap/src/Update/SelectCharacter.elm b/elm/battlemap/src/Update/SelectCharacter.elm index d42c7fc..570f82c 100644 --- a/elm/battlemap/src/Update/SelectCharacter.elm +++ b/elm/battlemap/src/Update/SelectCharacter.elm @@ -44,7 +44,14 @@ display_range dist loc_ref indicator bmap = make_it_so : Model.Type -> Character.Ref -> Model.Type make_it_so model char_id = case (Dict.get char_id model.characters) of - Nothing -> {model | state = (Model.Error Error.Programming)} + Nothing -> + (Model.invalidate + model + (Error.new + Error.Programming + "SelectCharacter: Unknown char selected." + ) + ) (Just char) -> let new_range_indicator = @@ -84,5 +91,5 @@ make_it_so model char_id = apply_to : Model.Type -> Character.Ref -> Model.Type apply_to model char_id = - case model.state of + case (Model.get_state model) of _ -> (make_it_so model char_id) -- cgit v1.2.3-70-g09d2