Improves error msgs & UI controls.

1 files changed, 12 insertions, 9 deletions

diff --git a/elm/battlemap/src/View/Status.elm b/elm/battlemap/src/View/Status.elm
index a7beb28..5fcc663 100644
--- a/elm/battlemap/src/View/Status.elm
+++ b/elm/battlemap/src/View/Status.elm
@@ -29,14 +29,17 @@ moving_character_text model =
 view : Model.Type -> (Html.Html Event.Type)
 view model =
    (Html.text
-      (case model.state of
-         Model.Default -> "Click on a character to control it."
-         Model.MovingCharacterWithButtons -> (moving_character_text model)
-         Model.MovingCharacterWithClick -> (moving_character_text model)
-         Model.FocusingTile -> "Error: Unimplemented."
-         (Model.Error Error.Programming) ->
-            "Error of programming, please report."
-         (Model.Error Error.IllegalAction) ->
-            "This cannot be done while in this state."
+      (
+         (case model.state of
+            Model.Default -> "Click on a character to control it."
+            Model.MovingCharacterWithButtons -> (moving_character_text model)
+            Model.MovingCharacterWithClick -> (moving_character_text model)
+            Model.FocusingTile -> "Error: Unimplemented."
+         )
+         ++ " " ++
+         (case model.error of
+            Nothing -> ""
+            (Just error) -> (Error.to_string error)
+         )
       )
    )