Prepares the sending of a character's turn.

1 files changed, 21 insertions, 1 deletions

diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm
index c62100d..a171aa6 100644
--- a/src/battlemap/src/Update.elm
+++ b/src/battlemap/src/Update.elm
@@ -2,6 +2,8 @@ module Update exposing (update)
 
 import Event
 
+import Error
+
 import UI
 
 import Model
@@ -10,6 +12,8 @@ import Model.SelectTile
 import Model.SelectCharacter
 import Model.EndTurn
 
+import Send.CharacterTurn
+
 update : Event.Type -> Model.Type -> (Model.Type, (Cmd Event.Type))
 update event model =
    let
@@ -26,7 +30,14 @@ update event model =
          ((Model.SelectCharacter.apply_to new_model char_id), Cmd.none)
 
       Event.TurnEnded ->
-         ((Model.EndTurn.apply_to new_model), Cmd.none)
+         (
+            (Model.EndTurn.apply_to new_model),
+--            Cmd.none
+            (case (Send.CharacterTurn.try_sending model) of
+               (Just cmd) -> cmd
+               Nothing -> Cmd.none
+            )
+         )
 
       (Event.ScaleChangeRequested mod) ->
          if (mod == 0.0)
@@ -50,3 +61,12 @@ update event model =
                (Model.reset {model | controlled_team = 0} model.characters),
                Cmd.none
             )
+
+      (Event.ServerReplied _) ->
+         (
+            (Model.invalidate
+               model
+               (Error.new Error.Unimplemented "Handle server reply.")
+            ),
+            Cmd.none
+         )