| 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/ElmModule | |
| parent | 85c6127369e984ef89bb06bf1139fab4aa07e790 (diff) | |
...
Diffstat (limited to 'src/ElmModule')
| -rw-r--r-- | src/ElmModule/Update.elm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm index 5baa84c..fbe8dfe 100644 --- a/src/ElmModule/Update.elm +++ b/src/ElmModule/Update.elm @@ -7,6 +7,7 @@ import Struct.Event import Struct.Model import Update.HandleServerReply +import Update.StoreParams -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- @@ -27,6 +28,11 @@ update event model = case event of Struct.Event.None -> (model, Cmd.none) + (Struct.Event.SetUsername str) -> (model, Cmd.none) + (Struct.Event.SetID str) -> (model, Cmd.none) + (Struct.Event.SetURLPrefix str) -> (model, Cmd.none) + (Struct.Event.SetFrequency val) -> (Update.StoreParams.apply_to model) + (Struct.Event.Failed err) -> ( (Struct.Model.invalidate err new_model), |