| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 11:31:17 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 11:31:17 +0200 |
| commit | 2d54254e59289c452777fccb1f4d00b56eb7e451 (patch) | |
| tree | ab0835ea7a5917a4363539022cbc730e582aed8a /elm/battlemap/src/Update/SelectCharacter.elm | |
| parent | d2b5c94b717e2d1b7b73a74a1f1ec6af70890a96 (diff) | |
Improves error msgs & UI controls.
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) |