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