summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'elm/battlemap/src/Update/SelectCharacter.elm')
-rw-r--r-- | elm/battlemap/src/Update/SelectCharacter.elm | 11 |
1 files changed, 9 insertions, 2 deletions
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) |