| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'src/roster-editor/src/View/MessageBoard/Error.elm')
| -rw-r--r-- | src/roster-editor/src/View/MessageBoard/Error.elm | 33 | 
1 files changed, 33 insertions, 0 deletions
| diff --git a/src/roster-editor/src/View/MessageBoard/Error.elm b/src/roster-editor/src/View/MessageBoard/Error.elm new file mode 100644 index 0000000..797d89f --- /dev/null +++ b/src/roster-editor/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)) +      ] +   ) | 


