| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/character/src/View/MessageBoard/Help.elm')
| -rw-r--r-- | src/character/src/View/MessageBoard/Help.elm | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/character/src/View/MessageBoard/Help.elm b/src/character/src/View/MessageBoard/Help.elm deleted file mode 100644 index 6c20bbc..0000000 --- a/src/character/src/View/MessageBoard/Help.elm +++ /dev/null @@ -1,37 +0,0 @@ -module View.MessageBoard.Help exposing (get_html) - --- Elm ------------------------------------------------------------------------- -import Html -import Html.Attributes - --- Map ------------------------------------------------------------------- -import Struct.Event -import Struct.HelpRequest -import Struct.Model - -import View.MessageBoard.Help.Guide -import View.MessageBoard.Help.Rank - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -get_html : Struct.Model.Type -> (Html.Html Struct.Event.Type) -get_html model = - (Html.div - [ - (Html.Attributes.class "battle-message-board"), - (Html.Attributes.class "battle-message-board-help") - ] - ( - case model.help_request of - Struct.HelpRequest.None -> - (View.MessageBoard.Help.Guide.get_html_contents model) - - (Struct.HelpRequest.HelpOnRank rank) -> - (View.MessageBoard.Help.Rank.get_html_contents rank) - ) - ) |