summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--src/battlemap/src/Comm/AddChar.elm (renamed from src/battlemap/src/Send/AddChar.elm)2
-rw-r--r--src/battlemap/src/Comm/CharacterTurn.elm (renamed from src/battlemap/src/Send/CharacterTurn.elm)6
-rw-r--r--src/battlemap/src/Comm/LoadBattlemap.elm (renamed from src/battlemap/src/Send/LoadBattlemap.elm)6
-rw-r--r--src/battlemap/src/Comm/Send.elm (renamed from src/battlemap/src/Send/Send.elm)14
-rw-r--r--src/battlemap/src/Comm/SetMap.elm (renamed from src/battlemap/src/Send/SetMap.elm)2
-rw-r--r--src/battlemap/src/Comm/TurnResults.elm (renamed from src/battlemap/src/Send/TurnResults.elm)2
-rw-r--r--src/battlemap/src/ElmModule/Init.elm4
-rw-r--r--src/battlemap/src/Struct/TurnResult.elm1
-rw-r--r--src/battlemap/src/Update/EndTurn.elm4
-rw-r--r--src/battlemap/src/Update/SendLoadBattlemapRequest.elm4
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
)