summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
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)