From ac5b50e4a622ee0885678a96c69af7f49290bcee Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 14 Sep 2018 10:09:38 +0200
Subject: ...

---
 src/ElmModule/Update.elm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/ElmModule')

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),
-- 
cgit v1.2.3-70-g09d2