summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 11:31:17 +0200
committerNathanael Sensfelder <SpamShield0@MultiAgentSystems.org>2017-09-27 11:31:17 +0200
commit2d54254e59289c452777fccb1f4d00b56eb7e451 (patch)
treeab0835ea7a5917a4363539022cbc730e582aed8a /elm/battlemap/src/Update/SelectCharacter.elm
parentd2b5c94b717e2d1b7b73a74a1f1ec6af70890a96 (diff)
Improves error msgs & UI controls.
Diffstat (limited to 'elm/battlemap/src/Update/SelectCharacter.elm')
-rw-r--r--elm/battlemap/src/Update/SelectCharacter.elm11
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)