| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ElmModule')
| -rw-r--r-- | src/ElmModule/Init.elm | 2 | ||||
| -rw-r--r-- | src/ElmModule/Update.elm | 1 | ||||
| -rw-r--r-- | src/ElmModule/View.elm | 35 |
3 files changed, 9 insertions, 29 deletions
diff --git a/src/ElmModule/Init.elm b/src/ElmModule/Init.elm index 705cff7..ccb3595 100644 --- a/src/ElmModule/Init.elm +++ b/src/ElmModule/Init.elm @@ -15,4 +15,4 @@ import Struct.Model -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) -init flags = (Struct.Model.new flags) +init flags = ((Struct.Model.new flags), Cmd.none) diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm index 18b2077..5baa84c 100644 --- a/src/ElmModule/Update.elm +++ b/src/ElmModule/Update.elm @@ -7,7 +7,6 @@ import Struct.Event import Struct.Model import Update.HandleServerReply -import Update.SelectTab -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- 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)) + ) ) |