| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'elm/battlemap/src/View/Status.elm')
| -rw-r--r-- | elm/battlemap/src/View/Status.elm | 21 |
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) + ) ) ) |