1 files changed, 0 insertions, 51 deletions
diff --git a/src/Comm/SetBattles.elm b/src/Comm/SetBattles.elm
deleted file mode 100644
index 0add112..0000000
--- a/src/Comm/SetBattles.elm
+++ /dev/null
@@ -1,51 +0,0 @@
-module Comm.SetBattles exposing (decoder)
-
--- Elm -------------------------------------------------------------------------
-import Json.Decode
-
--- Extension -------------------------------------------------------------------
-import Struct.BattleSummary
-import Struct.Player
-import Struct.ServerReply
-
---------------------------------------------------------------------------------
--- TYPES -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-type alias Battles =
-   {
-      campaigns : (List Struct.BattleSummary.Type),
-      invasions : (List Struct.BattleSummary.Type),
-      events : (List Struct.BattleSummary.Type)
-   }
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-internal_decoder : (Json.Decode.Decoder Battles)
-internal_decoder =
-   (Json.Decode.map3
-      Battles
-      (Json.Decode.field
-         "cmps"
-         (Json.Decode.list (Struct.BattleSummary.decoder))
-      )
-      (Json.Decode.field
-         "invs"
-         (Json.Decode.list (Struct.BattleSummary.decoder))
-      )
-      (Json.Decode.field
-         "evts"
-         (Json.Decode.list (Struct.BattleSummary.decoder))
-      )
-   )
-
-to_server_reply : Battles -> Struct.ServerReply.Type
-to_server_reply t =
-   (Struct.ServerReply.SetBattles (t.campaigns, t.invasions, t.events))
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-decoder : (Json.Decode.Decoder Struct.ServerReply.Type)
-decoder =
-   (Json.Decode.map (to_server_reply) (internal_decoder))