summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/battlemap/src/Update.elm')
-rw-r--r-- | src/battlemap/src/Update.elm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm index a171aa6..f411659 100644 --- a/src/battlemap/src/Update.elm +++ b/src/battlemap/src/Update.elm @@ -11,6 +11,7 @@ import Model.RequestDirection import Model.SelectTile import Model.SelectCharacter import Model.EndTurn +import Model.HandleServerReply import Send.CharacterTurn @@ -62,11 +63,14 @@ update event model = Cmd.none ) - (Event.ServerReplied _) -> + (Event.ServerReplied (Result.Err error)) -> ( (Model.invalidate model - (Error.new Error.Unimplemented "Handle server reply.") + (Error.new Error.Networking (toString error)) ), Cmd.none ) + + (Event.ServerReplied (Result.Ok commands)) -> + (Model.HandleServerReply.apply_to model commands) |