...

1 files changed, 16 insertions, 2 deletions

diff --git a/src/Update/StoreParams.elm b/src/Update/StoreParams.elm
index 3955ecd..f369be8 100644
--- a/src/Update/StoreParams.elm
+++ b/src/Update/StoreParams.elm
@@ -1,13 +1,17 @@
 module Update.StoreParams exposing (apply_to)
 
 -- Elm -------------------------------------------------------------------------
+import Array
 
--- Login -----------------------------------------------------------------------
+import Json.Encode
+
+-- Extension -------------------------------------------------------------------
 import Action.Ports
 
 import Struct.Event
 import Struct.Flags
 import Struct.Model
+import Struct.Player
 
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
@@ -20,5 +24,15 @@ apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
 apply_to model =
    (
       model,
-      (Action.Ports.store_params (5, ""))
+      (Action.Ports.store_params
+         (
+            (Struct.Flags.get_frequency model.flags),
+            (Json.Encode.encode
+               0
+               (Json.Encode.list
+                  (List.map (Struct.Player.encode) (Array.toList model.players))
+               )
+            )
+         )
+      )
    )