summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/background/src/Comm/SetBattles.elm')
-rw-r--r--src/background/src/Comm/SetBattles.elm12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/background/src/Comm/SetBattles.elm b/src/background/src/Comm/SetBattles.elm
index 5fb3243..631ad6e 100644
--- a/src/background/src/Comm/SetBattles.elm
+++ b/src/background/src/Comm/SetBattles.elm
@@ -38,13 +38,13 @@ internal_decoder =
)
)
-to_server_reply : Battles -> Struct.ServerReply.Type
-to_server_reply t =
- (Struct.ServerReply.SetBattles (t.campaigns, t.invasions, t.events))
+to_server_reply : Int -> Battles -> Struct.ServerReply.Type
+to_server_reply ix t =
+ (Struct.ServerReply.SetBattles (ix, t.campaigns, t.invasions, t.events))
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
-decoder : (Json.Decode.Decoder Struct.ServerReply.Type)
-decoder =
- (Json.Decode.map (to_server_reply) (internal_decoder))
+decoder : Int -> (Json.Decode.Decoder Struct.ServerReply.Type)
+decoder ix =
+ (Json.Decode.map (to_server_reply ix) (internal_decoder))