From 2d54254e59289c452777fccb1f4d00b56eb7e451 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 27 Sep 2017 11:31:17 +0200
Subject: Improves error msgs & UI controls.

---
 elm/battlemap/src/Update.elm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'elm/battlemap/src/Update.elm')

diff --git a/elm/battlemap/src/Update.elm b/elm/battlemap/src/Update.elm
index b6b2a80..0947e99 100644
--- a/elm/battlemap/src/Update.elm
+++ b/elm/battlemap/src/Update.elm
@@ -11,15 +11,18 @@ import Update.EndTurn
 
 update : Event.Type -> Model.Type -> Model.Type
 update event model =
+   let
+      new_model = (Model.clear_error model)
+   in
    case event of
       (Event.DirectionRequest d) ->
-         (Update.DirectionRequest.apply_to model d)
+         (Update.DirectionRequest.apply_to new_model d)
 
       (Event.SelectTile loc) ->
-         (Update.SelectTile.apply_to model loc)
+         (Update.SelectTile.apply_to new_model loc)
 
       (Event.SelectCharacter char_id) ->
-         (Update.SelectCharacter.apply_to model char_id)
+         (Update.SelectCharacter.apply_to new_model char_id)
 
       Event.EndTurn ->
-         (Update.EndTurn.apply_to model)
+         (Update.EndTurn.apply_to new_model)
-- 
cgit v1.2.3-70-g09d2