summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/ElmModule/Update.elm')
-rw-r--r--src/ElmModule/Update.elm51
1 files changed, 0 insertions, 51 deletions
diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm
deleted file mode 100644
index 9e162fe..0000000
--- a/src/ElmModule/Update.elm
+++ /dev/null
@@ -1,51 +0,0 @@
-module ElmModule.Update exposing (update)
-
--- Elm -------------------------------------------------------------------------
-
--- Main Menu -------------------------------------------------------------------
-import Struct.Event
-import Struct.Model
-
-import Update.AddPlayer
-import Update.HandleServerReply
-import Update.RefreshBattles
-import Update.StoreParams
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-update : (
- Struct.Event.Type ->
- Struct.Model.Type ->
- (Struct.Model.Type, (Cmd Struct.Event.Type))
- )
-update event model =
- let
- new_model = (Struct.Model.clear_error model)
- in
- 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) -> (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) ->
- (
- (Struct.Model.invalidate err new_model),
- Cmd.none
- )
-
- (Struct.Event.ServerReplied result) ->
- (Update.HandleServerReply.apply_to model result)