From c414c2b9127921d77237d0ad018b87ad044915e8 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Thu, 13 Sep 2018 18:30:08 +0200
Subject: ...

---
 src/ElmModule/View.elm | 35 ++++++++---------------------------
 1 file changed, 8 insertions(+), 27 deletions(-)

(limited to 'src/ElmModule/View.elm')

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))
+      )
    )
-- 
cgit v1.2.3-70-g09d2