From 60236a302381aeb4e97a42fdcc3afef53cf4e831 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Fri, 10 Nov 2017 13:03:35 +0100
Subject: Adds a button to ask for a new battlemap.

The new battlemap is chosen according to the currently selected
character.
---
 src/battlemap/src/Update.elm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/battlemap/src/Update.elm')

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
-- 
cgit v1.2.3-70-g09d2