1 files changed, 23 insertions, 0 deletions
diff --git a/src/battlemap/src/Model/HandleServerReply.elm b/src/battlemap/src/Model/HandleServerReply.elm
new file mode 100644
index 0000000..4f84821
--- /dev/null
+++ b/src/battlemap/src/Model/HandleServerReply.elm
@@ -0,0 +1,23 @@
+module Model.HandleServerReply exposing (apply_to)
+
+-- Battlemap -------------------------------------------------------------------
+import Model
+import Error
+import Event
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+apply_to : Model.Type -> String -> (Model.Type, (Cmd Event.Type))
+apply_to model serialized_commands =
+   (
+      (Model.invalidate
+         model
+         (Error.new Error.Unimplemented "Received reply from server.")
+      ),
+      Cmd.none
+   )