| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battlemap/src/Update/SendLoadBattlemapRequest.elm')
| -rw-r--r-- | src/battlemap/src/Update/SendLoadBattlemapRequest.elm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/battlemap/src/Update/SendLoadBattlemapRequest.elm b/src/battlemap/src/Update/SendLoadBattlemapRequest.elm new file mode 100644 index 0000000..2ed248d --- /dev/null +++ b/src/battlemap/src/Update/SendLoadBattlemapRequest.elm @@ -0,0 +1,28 @@ +module Update.SendLoadBattlemapRequest exposing (apply_to) +-- Elm ------------------------------------------------------------------------- + +-- Battlemap ------------------------------------------------------------------- +import Struct.Model +import Struct.Event +import Struct.UI + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +apply_to : ( + Struct.Model.Type -> + (Struct.Model.Type, (Cmd Struct.Event.Type)) + ) +apply_to model = + ( + model, + (case (Send.LoadBattlemap.try model) of + (Just cmd) -> cmd + Nothing -> Cmd.none + ) + ) + |