summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/Update/StoreParams.elm')
-rw-r--r--src/Update/StoreParams.elm38
1 files changed, 0 insertions, 38 deletions
diff --git a/src/Update/StoreParams.elm b/src/Update/StoreParams.elm
deleted file mode 100644
index f369be8..0000000
--- a/src/Update/StoreParams.elm
+++ /dev/null
@@ -1,38 +0,0 @@
-module Update.StoreParams exposing (apply_to)
-
--- Elm -------------------------------------------------------------------------
-import Array
-
-import Json.Encode
-
--- Extension -------------------------------------------------------------------
-import Action.Ports
-
-import Struct.Event
-import Struct.Flags
-import Struct.Model
-import Struct.Player
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
-apply_to model =
- (
- model,
- (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))
- )
- )
- )
- )
- )