| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-14 10:09:38 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-14 10:09:38 +0200 |
| commit | ac5b50e4a622ee0885678a96c69af7f49290bcee (patch) | |
| tree | 24907ac28e1251af33e1790cbb9c4a3d3be34810 /src/Update | |
| parent | 85c6127369e984ef89bb06bf1139fab4aa07e790 (diff) | |
...
Diffstat (limited to 'src/Update')
| -rw-r--r-- | src/Update/StoreParams.elm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/Update/StoreParams.elm b/src/Update/StoreParams.elm new file mode 100644 index 0000000..3955ecd --- /dev/null +++ b/src/Update/StoreParams.elm @@ -0,0 +1,24 @@ +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, "")) + ) |