Adds a button to ask for a new battlemap.

The new battlemap is chosen according to the currently selected
character.

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