summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2017-11-02 16:38:19 +0100
committernsensfel <SpamShield0@noot-noot.org>2017-11-02 16:38:19 +0100
commit87fd9b3f1c9ad877bd487ddd3375377ae965e75a (patch)
tree12e07c8f191793f9d8dd693471bfcd5ded946dbc /src/battlemap/src/Update.elm
parent98c9c4f227af30cad5eb28b16d4c62c0c328ccbe (diff)
I'll soon have to start coding stuff server-side.
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)