Send -> Comm

10 files changed, 22 insertions, 23 deletions

diff --git a/src/battlemap/src/Send/AddChar.elm b/src/battlemap/src/Comm/AddChar.elm
index be3fea7..1270b0d 100644
--- a/src/battlemap/src/Send/AddChar.elm
+++ b/src/battlemap/src/Comm/AddChar.elm
@@ -1,4 +1,4 @@
-module Send.AddChar exposing (decode)
+module Comm.AddChar exposing (decode)
 
 -- Elm -------------------------------------------------------------------------
 import Dict
diff --git a/src/battlemap/src/Send/CharacterTurn.elm b/src/battlemap/src/Comm/CharacterTurn.elm
index f23e905..a7e137d 100644
--- a/src/battlemap/src/Send/CharacterTurn.elm
+++ b/src/battlemap/src/Comm/CharacterTurn.elm
@@ -1,4 +1,4 @@
-module Send.CharacterTurn exposing (try)
+module Comm.CharacterTurn exposing (try)
 
 -- Elm -------------------------------------------------------------------------
 import Json.Encode
@@ -6,7 +6,7 @@ import Json.Encode
 -- Battlemap -------------------------------------------------------------------
 import Constants.IO
 
-import Send.Send
+import Comm.Send
 
 import Struct.Character
 import Struct.CharacterTurn
@@ -123,7 +123,7 @@ try_encoding model =
 --------------------------------------------------------------------------------
 try : Struct.Model.Type -> (Maybe (Cmd Struct.Event.Type))
 try model =
-   (Send.Send.try_sending
+   (Comm.Send.try_sending
       model
       Constants.IO.character_turn_handler
       try_encoding
diff --git a/src/battlemap/src/Send/LoadBattlemap.elm b/src/battlemap/src/Comm/LoadBattlemap.elm
index 0bd8342..8642ca0 100644
--- a/src/battlemap/src/Send/LoadBattlemap.elm
+++ b/src/battlemap/src/Comm/LoadBattlemap.elm
@@ -1,4 +1,4 @@
-module Send.LoadBattlemap exposing (try)
+module Comm.LoadBattlemap exposing (try)
 
 -- Elm -------------------------------------------------------------------------
 import Json.Encode
@@ -6,7 +6,7 @@ import Json.Encode
 -- Battlemap -------------------------------------------------------------------
 import Constants.IO
 
-import Send.Send
+import Comm.Send
 
 import Struct.Event
 import Struct.Model
@@ -35,7 +35,7 @@ try_encoding model =
 --------------------------------------------------------------------------------
 try : Struct.Model.Type -> (Maybe (Cmd Struct.Event.Type))
 try model =
-   (Send.Send.try_sending
+   (Comm.Send.try_sending
       model
       Constants.IO.battlemap_loading_handler
       try_encoding
diff --git a/src/battlemap/src/Send/Send.elm b/src/battlemap/src/Comm/Send.elm
index c8f7f5e..fbdd26d 100644
--- a/src/battlemap/src/Send/Send.elm
+++ b/src/battlemap/src/Comm/Send.elm
@@ -1,4 +1,4 @@
-module Send.Send exposing (try_sending)
+module Comm.Send exposing (try_sending)
 
 -- Elm -------------------------------------------------------------------------
 import Http
@@ -7,9 +7,9 @@ import Json.Decode
 import Json.Encode
 
 -- Battlemap -------------------------------------------------------------------
-import Send.SetMap
-import Send.AddChar
-import Send.TurnResults
+import Comm.SetMap
+import Comm.AddChar
+import Comm.TurnResults
 
 import Struct.Event
 import Struct.ServerReply
@@ -29,9 +29,9 @@ internal_decoder : (
    )
 internal_decoder model reply_type =
    case reply_type of
-      "add_char" -> (Send.AddChar.decode model)
-      "set_map" -> (Send.SetMap.decode model)
-      "turn_results" -> (Send.TurnResults.decode)
+      "add_char" -> (Comm.AddChar.decode model)
+      "set_map" -> (Comm.SetMap.decode model)
+      "turn_results" -> (Comm.TurnResults.decode)
       other ->
          (Json.Decode.fail
             (
diff --git a/src/battlemap/src/Send/SetMap.elm b/src/battlemap/src/Comm/SetMap.elm
index f09e6bf..9a9668a 100644
--- a/src/battlemap/src/Send/SetMap.elm
+++ b/src/battlemap/src/Comm/SetMap.elm
@@ -1,4 +1,4 @@
-module Send.SetMap exposing (decode)
+module Comm.SetMap exposing (decode)
 
 -- Elm -------------------------------------------------------------------------
 import Json.Decode
diff --git a/src/battlemap/src/Send/TurnResults.elm b/src/battlemap/src/Comm/TurnResults.elm
index 5d2c748..359e3c9 100644
--- a/src/battlemap/src/Send/TurnResults.elm
+++ b/src/battlemap/src/Comm/TurnResults.elm
@@ -1,4 +1,4 @@
-module Send.TurnResults exposing (decode)
+module Comm.TurnResults exposing (decode)
 
 -- Elm -------------------------------------------------------------------------
 import Json.Decode
diff --git a/src/battlemap/src/ElmModule/Init.elm b/src/battlemap/src/ElmModule/Init.elm
index 136a828..f8fb439 100644
--- a/src/battlemap/src/ElmModule/Init.elm
+++ b/src/battlemap/src/ElmModule/Init.elm
@@ -1,7 +1,7 @@
 module ElmModule.Init exposing (init)
 
 -- Battlemap -------------------------------------------------------------------
-import Send.LoadBattlemap
+import Comm.LoadBattlemap
 
 import Struct.Event
 import Struct.Model
@@ -20,7 +20,7 @@ init =
    in
       (
          model,
-         (case (Send.LoadBattlemap.try model) of
+         (case (Comm.LoadBattlemap.try model) of
             (Just cmd) -> cmd
             Nothing -> Cmd.none
          )
diff --git a/src/battlemap/src/Struct/TurnResult.elm b/src/battlemap/src/Struct/TurnResult.elm
index dd7c9ef..a7ca4a4 100644
--- a/src/battlemap/src/Struct/TurnResult.elm
+++ b/src/battlemap/src/Struct/TurnResult.elm
@@ -9,7 +9,6 @@ module Struct.TurnResult exposing
 
 -- Elm -------------------------------------------------------------------------
 import Json.Decode
-import Json.Decode.Pipeline
 
 -- Battlemap -------------------------------------------------------------------
 import Struct.Direction
diff --git a/src/battlemap/src/Update/EndTurn.elm b/src/battlemap/src/Update/EndTurn.elm
index 4cae3ab..142f8ff 100644
--- a/src/battlemap/src/Update/EndTurn.elm
+++ b/src/battlemap/src/Update/EndTurn.elm
@@ -4,7 +4,7 @@ module Update.EndTurn exposing (apply_to)
 import Dict
 
 -- Struct.Battlemap -------------------------------------------------------------------
-import Send.CharacterTurn
+import Comm.CharacterTurn
 
 import Struct.Character
 import Struct.CharacterTurn
@@ -23,7 +23,7 @@ make_it_so : (
       (Struct.Model.Type, (Cmd Struct.Event.Type))
    )
 make_it_so model char nav =
-   case (Send.CharacterTurn.try model) of
+   case (Comm.CharacterTurn.try model) of
       (Just cmd) ->
          (
             (Struct.Model.reset
diff --git a/src/battlemap/src/Update/SendLoadBattlemapRequest.elm b/src/battlemap/src/Update/SendLoadBattlemapRequest.elm
index 333ea2d..e55d60b 100644
--- a/src/battlemap/src/Update/SendLoadBattlemapRequest.elm
+++ b/src/battlemap/src/Update/SendLoadBattlemapRequest.elm
@@ -2,7 +2,7 @@ module Update.SendLoadBattlemapRequest exposing (apply_to)
 -- Elm -------------------------------------------------------------------------
 
 -- Battlemap -------------------------------------------------------------------
-import Send.LoadBattlemap
+import Comm.LoadBattlemap
 
 import Struct.Event
 import Struct.Model
@@ -21,7 +21,7 @@ apply_to : (
 apply_to model =
    (
       model,
-      (case (Send.LoadBattlemap.try model) of
+      (case (Comm.LoadBattlemap.try model) of
          (Just cmd) -> cmd
          Nothing -> Cmd.none
       )