module Update.StoreParams exposing (apply_to) -- Elm ------------------------------------------------------------------------- -- Login ----------------------------------------------------------------------- import Action.Ports import Struct.Event import Struct.Flags import Struct.Model -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) apply_to model = ( model, (Action.Ports.store_params (5, "")) )