From 2aa0c12b6a193d16681a0179a067664390af7aee Mon Sep 17 00:00:00 2001 From: nsensfel Date: Fri, 14 Sep 2018 18:57:42 +0200 Subject: ... --- src/ElmModule/Update.elm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src/ElmModule/Update.elm') diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm index fbe8dfe..9e162fe 100644 --- a/src/ElmModule/Update.elm +++ b/src/ElmModule/Update.elm @@ -6,7 +6,9 @@ module ElmModule.Update exposing (update) import Struct.Event import Struct.Model +import Update.AddPlayer import Update.HandleServerReply +import Update.RefreshBattles import Update.StoreParams -------------------------------------------------------------------------------- @@ -31,7 +33,13 @@ update event model = (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.SetFrequency val) -> (model, Cmd.none) + + Struct.Event.ShouldRefresh -> (Update.RefreshBattles.apply_to model) + + Struct.Event.StoreParams -> (Update.StoreParams.apply_to model) + + Struct.Event.AddPlayer -> (Update.AddPlayer.apply_to model) (Struct.Event.Failed err) -> ( -- cgit v1.2.3-70-g09d2