| summaryrefslogtreecommitdiff |
diff options
| author | nsensfel <SpamShield0@noot-noot.org> | 2018-09-27 15:40:30 +0200 |
|---|---|---|
| committer | nsensfel <SpamShield0@noot-noot.org> | 2018-09-27 15:40:30 +0200 |
| commit | 2f22e667fbea56884d74ed27777f2e9f3fc9fd53 (patch) | |
| tree | 75300c58cc7b287993887f84b2d68b9d515a9ec0 /src/Update/RefreshBattles.elm | |
| parent | 486ee1dbe21be962e89f421e1dd5f3cbb2fd2177 (diff) | |
Starting to separate background and popup code.
Diffstat (limited to 'src/Update/RefreshBattles.elm')
| -rw-r--r-- | src/Update/RefreshBattles.elm | 28 |
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) |