From 2f22e667fbea56884d74ed27777f2e9f3fc9fd53 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 27 Sep 2018 15:40:30 +0200 Subject: Starting to separate background and popup code. --- src/Update/StoreParams.elm | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 src/Update/StoreParams.elm (limited to 'src/Update/StoreParams.elm') 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)) - ) - ) - ) - ) - ) -- cgit v1.2.3-70-g09d2