| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battle/src/Update/SendLoadBattleRequest.elm')
| -rw-r--r-- | src/battle/src/Update/SendLoadBattleRequest.elm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/battle/src/Update/SendLoadBattleRequest.elm b/src/battle/src/Update/SendLoadBattleRequest.elm new file mode 100644 index 0000000..9d8905c --- /dev/null +++ b/src/battle/src/Update/SendLoadBattleRequest.elm @@ -0,0 +1,29 @@ +module Update.SendLoadBattleRequest exposing (apply_to) +-- Elm ------------------------------------------------------------------------- + +-- Map ------------------------------------------------------------------- +import Comm.LoadBattle + +import Struct.Event +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +apply_to : ( + Struct.Model.Type -> + (Struct.Model.Type, (Cmd Struct.Event.Type)) + ) +apply_to model = + ( + (Struct.Model.full_debug_reset model), + (case (Comm.LoadBattle.try model) of + (Just cmd) -> cmd + Nothing -> Cmd.none + ) + ) + |