summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battlemap/src/Update.elm')
-rw-r--r-- | src/battlemap/src/Update.elm | 10 |
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 |