summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2018-09-27 15:40:30 +0200
committernsensfel <SpamShield0@noot-noot.org>2018-09-27 15:40:30 +0200
commit2f22e667fbea56884d74ed27777f2e9f3fc9fd53 (patch)
tree75300c58cc7b287993887f84b2d68b9d515a9ec0 /src/Update/StoreParams.elm
parent486ee1dbe21be962e89f421e1dd5f3cbb2fd2177 (diff)
Starting to separate background and popup code.
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))
- )
- )
- )
- )
- )