summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/Update/RefreshBattles.elm')
-rw-r--r--src/Update/RefreshBattles.elm28
1 files changed, 0 insertions, 28 deletions
diff --git a/src/Update/RefreshBattles.elm b/src/Update/RefreshBattles.elm
deleted file mode 100644
index 2ff739f..0000000
--- a/src/Update/RefreshBattles.elm
+++ /dev/null
@@ -1,28 +0,0 @@
-module Update.RefreshBattles exposing (apply_to)
-
--- Elm -------------------------------------------------------------------------
-import Array
-
--- Extension -------------------------------------------------------------------
-import Comm.GetBattles
-
-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 =
- case (Array.get 0 model.players) of
- Nothing -> (model, Cmd.none)
- (Just player) ->
- case (Comm.GetBattles.try model player) of
- -- TODO: Invalidate only this player, refresh the others.
- Nothing -> (model, Cmd.none)
- (Just cmd) -> ({model | query_index = 0}, cmd)