1 files changed, 15 insertions, 2 deletions
diff --git a/src/battlemap/src/Model/HandleServerReply.elm b/src/battlemap/src/Model/HandleServerReply.elm
index 4f84821..7245cc4 100644
--- a/src/battlemap/src/Model/HandleServerReply.elm
+++ b/src/battlemap/src/Model/HandleServerReply.elm
@@ -1,5 +1,8 @@
 module Model.HandleServerReply exposing (apply_to)
 
+-- Elm -------------------------------------------------------------------------
+import Dict
+
 -- Battlemap -------------------------------------------------------------------
 import Model
 import Error
@@ -12,12 +15,22 @@ import Event
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
-apply_to : Model.Type -> String -> (Model.Type, (Cmd Event.Type))
+apply_to : (
+      Model.Type ->
+      (Dict.Dict String (List String)) ->
+      (Model.Type, (Cmd Event.Type))
+   )
 apply_to model serialized_commands =
    (
       (Model.invalidate
          model
-         (Error.new Error.Unimplemented "Received reply from server.")
+         (Error.new
+            Error.Unimplemented
+            (
+               "Received reply from server:"
+               ++ (toString serialized_commands)
+            )
+         )
       ),
       Cmd.none
    )