| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ElmModule/View.elm')
| -rw-r--r-- | src/ElmModule/View.elm | 35 |
1 files changed, 8 insertions, 27 deletions
diff --git a/src/ElmModule/View.elm b/src/ElmModule/View.elm index 0d6a321..3f0a16f 100644 --- a/src/ElmModule/View.elm +++ b/src/ElmModule/View.elm @@ -1,19 +1,19 @@ module ElmModule.View exposing (view) -- Elm ------------------------------------------------------------------------- +import Array + import Html import Html.Attributes --- Shared ---------------------------------------------------------------------- +-- Extension ------------------------------------------------------------------- import Util.Html --- Main Menu ------------------------------------------------------------------- import Struct.Error import Struct.Event import Struct.Model -import Struct.Player -import View.BattleListing +import View.Player -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- @@ -27,28 +27,7 @@ view model = [ (Html.Attributes.class "fullscreen-module") ] - [ - (Html.main_ - [ - ] - [ - (View.BattleListing.get_html - "Campaigns" - "main-menu-campaigns" - (Struct.Player.get_campaigns model.player) - ), - (View.BattleListing.get_html - "Invasions" - "main-menu-invasions" - (Struct.Player.get_invasions model.player) - ), - (View.BattleListing.get_html - "Events" - "main-menu-events" - (Struct.Player.get_events model.player) - ) - ] - ), + ( ( case model.error of Nothing -> (Util.Html.nothing) @@ -60,5 +39,7 @@ view model = ] ) ) - ] + :: + (List.map (View.Player.get_html) (Array.toList model.players)) + ) ) |