--- a/gameServer/CoreTypes.hs Fri Jan 31 12:45:51 2014 +0400
+++ b/gameServer/CoreTypes.hs Fri Jan 31 16:51:20 2014 +0400
@@ -84,7 +84,12 @@
data Event = LobbyChatMessage
| EngineMessage
| RoomJoin
+
+type EventsInfo = [(Int, Maybe UTCTime)]
+newEventsInfo :: EventsInfo
+newEventsInfo = []
+
type ClientChan = Chan [B.ByteString]
data CheckInfo =
@@ -119,6 +124,9 @@
isJoinedMidGame :: Bool,
clientClan :: !(Maybe B.ByteString),
checkInfo :: Maybe CheckInfo,
+ eiLobbyChat,
+ eiEM,
+ eiJoin :: EventsInfo,
teamsInGame :: Word
}