| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/character/src/View/MessageBoard/Error.elm')
| -rw-r--r-- | src/character/src/View/MessageBoard/Error.elm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/character/src/View/MessageBoard/Error.elm b/src/character/src/View/MessageBoard/Error.elm new file mode 100644 index 0000000..797d89f --- /dev/null +++ b/src/character/src/View/MessageBoard/Error.elm @@ -0,0 +1,33 @@ +module View.MessageBoard.Error exposing (get_html) + +-- Elm ------------------------------------------------------------------------- +import Html +import Html.Attributes + +-- Map ------------------------------------------------------------------- +import Struct.Error +import Struct.Event +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +get_html : ( + Struct.Model.Type -> + Struct.Error.Type -> + (Html.Html Struct.Event.Type) + ) +get_html model error = + (Html.div + [ + (Html.Attributes.class "battle-message-board"), + (Html.Attributes.class "battle-error") + ] + [ + (Html.text (Struct.Error.to_string error)) + ] + ) |