summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/battlemap/src/Update.elm')
-rw-r--r--src/battlemap/src/Update.elm10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm
index f411659..b0930b8 100644
--- a/src/battlemap/src/Update.elm
+++ b/src/battlemap/src/Update.elm
@@ -14,6 +14,7 @@ import Model.EndTurn
import Model.HandleServerReply
import Send.CharacterTurn
+import Send.LoadBattlemap
update : Event.Type -> Model.Type -> (Model.Type, (Cmd Event.Type))
update event model =
@@ -63,6 +64,15 @@ update event model =
Cmd.none
)
+ (Event.DebugLoadBattlemapRequest) ->
+ (
+ model,
+ (case (Send.LoadBattlemap.try_sending model) of
+ (Just cmd) -> cmd
+ Nothing -> Cmd.none
+ )
+ )
+
(Event.ServerReplied (Result.Err error)) ->
(
(Model.invalidate