| 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 | 


